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eENTRY MACRO AND MODULE DEFINITION SECTION x ) 
5 LODM *AGMAC *LOAD SYSTEM MACRO 
6 LODST  eA6IOE iUAD 70 SyMROLes ee 
000000 7 ENTRY DISPs[DSP2GRD»DMPE3 » es 
000 8 ETC RLeoeENCCe ) ’ 2s 
000000 x) ETC CCAC,IOTRM,ENDEVT, 00000020 <® 
000000 ~ 10 ETC DSCNT eGWAKE®SCKePMME® 
000000 11 ETC SSPND »DELAYy eWAKS » a 
000000 12 ETC CLODS sWRAPUP sEVTWT > ev 
000000 13 ETC ENRPsEPJT1eSDQC+ 00000020 7 
ss 900000. 14. ETC. EIDLPeCAPTT+SHCMs OT oy 
000000 15 ETC CPRIVTYsINIT] 090 ; oy @ 
| INHTB SAVE*ON = 
ON0000 004057161504 000 2eDTSP VED 3/O091/093/eF S1LL/eMDISP812/eIDISP94/192/0 ey 
On0001 OOO11LO 7102 04 °#2111 TRA DSPs 1 2 
OnN0N2 000121 7102 04 123 TRA GRD» 2 . 
0N0003 001034 7102 04 1037 TRA DMPE39$ 
onn004 000155 7102 04 1él TRA RLCsS 4 | 
On0005 000200 7102 04 205 TRA ENCCes 5 5 
ann006 000217 7102 04 #225 TRA ENBeS 6 ao 
ON0007 000222 7102 04 231  4‘|'RA PUTGs$ 7 | _ _ ~~ oe @ 
0N0010 000225 7102 04 235 TRA CCACs$S 8 ie 
On0di1 0 6 Tlo2 04 3 RA TOT e 
0n0012 001030 7102 04 1042 TRA ENDEVTs$ 10 «® 
0N0013 000276 7102 04 311. TRA DSCNT OS DD ae 
0N0014 000315 7102 04 331 TRA GWAKE®s$ 12 | te 
ON0015 000344 7102 04 361 TRA SCKe$ 13 «@ 
0N0016 000345 7102 04 363 TRA | PMMEs$ 14 2 
OMD01T O00350 7102 04 367 TRA SSRI 
ON0020 000372 7102 04 412 TRA DELAYs$ 16 7 z® 
00091 000374 7102 04 415. TRA WAKS BLT 9 
ON0022 000422 7102 04 444 TRA CLODS*s$ 18 e 
On0023 000552 7102 04 575. TRA WRAPUP 9S UD ae @ 
0N0024 000622 7102 04 646 TRA EVTWTs$ 20 ee 
BN0025 O0065e Tl0e 0G 677 TRA ENB 9D SL 
0N0026 000666 7102 04 714 TRA EPJT1ls$ 22 
ON0077 000666 7lO2 04 v15 TRA  SDOG*S 23 °° a ee Ae ee A ee 
000030 OO01010 7102 04 1040 TRA EIDLPs$ 24 
090031 006307 7102 04 6340 TRA CAPTsS 25 
0N0032 071101020102 000 BCT 16791212 , 
Go00ss OflOlOcull. 000. ——— "- \TLDA, ee gS 
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OB R””CO TE SPATCHER WILL CAUSE THE SYSTEM TO CRASH WITH A ZOP FAULT 000000 
19 * . 
20 * THE WORD WHICH CAU P AU AAV HE FOLLOWING FORMA 
21 * BITS O17 zoP IN BCD 
OD BTS L629 ZOP COD og 
23 % | BITS 30"35 ERROR NUMBER - 
24 % | | ——— 7 ® 
25 ZoP MACRO | | - 
OG OOOOH RR RR RRR UNH RRU RH UR RR WU RRR HE UO 
27 VFD 018/714647,011 000157 741 ~@ 
RR HH NKR HRRKRHR HR ER ER RR NR RRR EERE EER RR, 
29 | ENDM ZOP ep 
30 * a | 
31 * zop 1 A REQUEST HAS BEEN RECEIVED TO PuT A PROCESS INTHE. “ 
32 % DISPATCHER QUEUE. UTs THER TO-PRO >—IN-cOR : es 
33 % WITH THAT NUMBERR. « ® 
34 * ee ee 
35 * ZOP 2 THE PROCESSOR GATE TALLY IS ERROR IN COUNT 
36 * TITHER THE PRO L GA HUT OR OPENED 
37 % GATES WHICH WERE NOT SHUT 
38 % 
39 * 20P 3 A MODULE HAS BEEN CALLED FOR wHICH THERE IS NO ENTY 
BORN TENE SD MDD TAB 
41 * 
OO ””*~“«*;é‘s;éSO H~C«éROOPM HAS HAD AN UNRECOVERABLE SYSTEM T/0 ERROR 
43% THE REASON CODE INS IN THE Q@ REGISTER 
44 % A L 
45 % 2 SSA MODULE CHECKSUM ERROR 
ee eS CANNOT FIND SSA MODUL CO 
ee 47 * 
TO BOR””~CMORP SCM SRPUSH HAS TURNED NEGATIVE 7000 
49 * MORE BLOCKS POPED UP THAN WERE PUSHED DOWN ze 
50 * ge 
51 * ZOP 6 THERE WAS AN ERROR ENTRY IN DDS STACK z® 
52 * OR P H Hi ACKE e 
| 53 * | 61 
TB H””~”:CCOOP O”~CUODS «STACK OVERFLOW OCCURED 3s @ 
55 * val 
56 x 70P & UND VED DISP HER ENTRY FA ALLED ‘s 
aa ea oe a a wa te a a a Pee ee a eet i @ 
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9S 
59 * GG 
60 * LEVEL SAVE ENTRY IN DDS SAVE Se ee ee — 3 
4l * €sS 
Poe ee OOO OO. 62 O-55e £OuU" 20" °° SS PROGR GAVE) et ee ee ee ah 
000002 63 DeTEMP EQU 2 *eSTEMP SAVE AREA <@ 
OOO TS 64 DeELVL EQU ce WeSELVL SAVE... ¥MPR60TO ae 
777777 65 DeDLVL EQU =] *eSDLVL SAVE -» BACKWARD POINTER a6 
000014 66 DeSTAT EQU 12 —  &eSTATE SAVE... .......0©™©™”.  TMPR6030 a 
000016 67 DeSTKP EQU 14 *eSTKSP SAVE . IMPR6040 ie 
00001? 68 DeSVFT EQU 15 ¥eSVFLI SAVE TMPRO045 9 
000020 69 0eSSA EU 16 %eSSA STACK SAVE AREA IMPR6050 a 
70 x vy 
71 %* SDeLRM SEGMENT ACCESS SYMBOLS 
72 % 
000000 73 LeGATE EQU 0 *GATE WORD OF LRM TABLE i 
Ss OOOOOLT~—~—CssCS HS LFF RRSST EQU =&L©@©)©)3>©”©6©*FTRST ENTRY TIME OF THE TABLE 
00002 | 75 LePTR ENU 2 BPOINTER TO THE FIRST AND COUNT OF 
76 ME TIME ENTRIES a 
000004 77 LealLRM EQU 4 WBAGE ENTRY ADDRESS TO INDEX BY KPX 
aa 00000 78 LelCOM EFQU 0 NTRY 
777777 79 LeSWAP EQU ~} *SWAP TIMER ENTRY INDEX 7 e 
BO x 
al # SDePRQ SEGMENT ACCESS SYMBOLS 
R2 * ze 
000000 83 DeGATE EQU fe) *DISPATCHER QUEUE GATE WORD 
000001 84 NeSSAP EQU 1 —  *S5A PAGE WAITING QUEUE CONTROL OOO 
000003 85 NeGMOD EQU 3 *GATED MODULE WAITING QUEUE CONTROL s 
00000 86 DeSTO EQU 5 : OY WAITING QUET ONTRU : : 
000007 87 DePRF EAU 7 vocr Seas PROFILE PABEE FOR ~SATTR 
000013 88 NeCPU EQU Il : TATU ce 
000017 89 MeSQUF FQU 15 Sieg rsparce QUEUF CONTROL (L7PROCER + 1) SUBDO100 
000024 90 NeSQPT FQU 20 UBD CH QUEUE : ’ =5¢ 
000036 91 MeDSP EFQU 30 COUNT TALLY SuBpp0120 ie 
0000 92 NePRQ EQU 31 DTSPATCHER QUFU ONTROL WORD SUBDUT SU Seen 
7 93 * 
04 &  RSCR OPERATION SYMBOL TO READ CALENDAR CLOCK 222 
95 : 
00004 96 SCUCLK EQU 32 
97 * 
94 % ST Fi = Pie el’ \7 op VMRO) Siz. "apy? \ wR, 
_99 * 
100 . UI ER HATH vi 
200000 101 ZAPRTO BOOL 200000 #ACTIVE A PRIORITY PROCESS 
100000 102 ZSYS5PR BOOL 00000 MD VE PRO POP sGEOT s \ 
040000 193 ZAENRBD BOOL 40000 | *PROCESS ENABLED BY A PRIORITY PROCESS ‘ 
134000 TO APTOD BoC elere N-PRIOR =O == 
002000 105 ZINTRP BOOL 2000 x INTERRUPTED IN, CoCo O83 HIGHER LEVEL 
— 00140 106 ZEXCOD BOOL 1400 : : 


000200 107 ZAPRWT BOOL 200 ial BRNe A PRIOR PROCESS P 
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~MDISP LOCAL SYMBOL DEFINITION SECTION 
000040 109 ZIOWFN BOOL 40 *ENABLED BY IOTERM OR OTHER PROCESS 
000020 110 ZSMATN BOOL 20 7* SYSTEM PROCESS MAIN LEVEL 
000017 111 ZIOURC BOOL 17 *1/O0 RATIO URGENCY CODE FIELD (TALLY) 
ye, @=©)6SO  OWERS MAGE Sp tae oe Pag an en grea 
rr oe eee) ee ee Ce 
114 BIT 22-24 A PRIORITY CODE SAVE oe oe 
115 BIT 2627 EXECUTION LEVEL CODE 
116 | BIT 31-35 AePRIO »~ PJT ENTRY OFFSET 
117 Be=PRIO = B=PRIOR TABLE OFFSET i 
118 
ee op SPT CHES 
000001 120. ZINTFR BOOL 1 7* MINIMUM COUNT OF NI ES 
me CO BETWEEN RECOMPUTE: ZIOURC 
122 | 
123 A PRIORITY RELATED SYMBOLS a 
aC RAAPRYO ZSYSPR ZAENBD ZAPCOD 2 2)=©=)—COt~C=sti‘“—SSOSOOOCOCOCOOO 
dB PRIORITY REALATED SYMBOLS 
126 | ZBPRIO ~ 
127 1/0 RATIO URGENCY RELATED SyMROLS 
128 ZIOWEN ZINTER ZIOURC 
129 Se 
130 * 
rr ce ae AS 
000077 132 URMASK BOOL 77 *URGENCY FIELD OF ENTRY Te 
Bs RE a ee, 
134 * | 
135 * PROCESSOR PROCESS REGISTER ms 
136 * 
094200 137 SYSTR  BOOL 004200 *OVERFLOW MASke MASTER MODE 
2040000 138 SYSOR BOOL 204000 = *S/S CACHE ENABLE 


ee er EIT TON 
140 * eSNTRY WORD BIT D ITION 


are 


a eee oe TE 41 * 
| 004000 142 SNaPRV BOOL 004000 ¥PRIVITY MODULE 
| — OE OOOO~—C—C— MH SSNWRUS BOOL 010000 ~~ *REUSABLE MODULE 0 


020000 143 SNeGAT BOOL 020000 | *GATED MODULE 
010000 144 SNeRUS BOOL 01000 % MODUL. 
145 * 
146 * eSTATE OT .SROST BIT TEMPORARY DEFINITION  }» © 
Se ee a er errno RN Regt rc eee ee OS EO a) ee a ee OE ee eT re 
148 * : ot 
- 149 % »STATE BIT COMPLEX SYMBOL | a@ 
| 5O * rt 
154020 a TeSYS BOOL « TSOVF +e TGPRS+eTGEPR+eeTSWP+eTUISWP os 
152 SYSTEM EVE ROCE Ge ACCOUNT TT AS OV ° a@ 
090400 153 »zASYSP BOOL 400 *SYSTEM PRIORITY GRANTED 1 
154 Ps OL 
155 * | « @ 
156 * ~ MODULE NUMBER FIELD DEFINITION LO BITS | — g 
157 * l 


OO1L777 158 MDMSK  BOOL L777 OO »@ 
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9S 
159 * gg 
160 * S5A CELL TEMPORARY DEFINITION —_ —_— Tg 
161 % . es 
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Os 
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165 * €S 
000006 166 KPX SET 6 *PROCESS INDEX . zg 
000007 167 PN SET 7 *PROCESSOR INDEX s@ 
168 * ; os 
169 * INDEX REGISTER ASSIGNMENT FOR INTERFACE OF ROUTINE LINKAGE 
70 * 
000001 171 Z SET 1 *BASIC SHUT/OPEN ROUTINE is 
000002 172 DACNX SET 2 *DACN ROUTINE 
000003 173 ENBLX SET 3 *ENABLE ROUTINE 
000005 174 SETLRX SET 5 *¥SET TIMER ALARM ROUTINE | by 
000005 L75\RETLRX SET 5 *RESET TIMER ALARM ROUTINE ep 
000001 176 PUTPRX SET 1 ~*PUT PROCESS INTO Q ROUTINE 
000001 177 SRTLRX SET 1 *SORT ALARM TABLE ROUTINE . 
000001 178 CKLMTX SET I ® K PROCESS ME : 
_ 000001 179 SVLVIX SET ] *SAVE DISPATCH LEVEL ROUTINE 
000001 180 POPQX SET 1 *PUT MESSAGE INTO POP}Q ROUTINE ec 
000001 181 CKEVTX SET l *CHECK PAYABLE EVENT ROUTINE 
000003 182 CEBLX SFT 3 *#ENABLE BY EVENT ROUTINE 
000001 183 RLSHX SET l *RELEASE SSSA MODULE 
184 * 3 , 
1a5 # INDEX REGISETER ASSIGNED BY MODULE INTERFACE 
: 186 * = = 
000004 187 XIOE SFT 4s *1/O ENTRY POTNTER 
88 x 
189 x POINTER REGISTER ASSIGNED BY BASIC ROUTINE 62 
90 * 
000000 191 PeRMS SET PO *REAL MEMORY SEGMENT 
000004 192 P.PST SET ~P4 ®PROCESS STATUS (0 ge 
000003 193 P.PRQ SET P3 *PROCESS QUEUF sz 
000002 194 PaKL SET P2 rs | 
000002 195 P.LRM SET P2 *TIMER ALARM ez 
— —<OOOOS-——“—~SG PGT OCSETOUU!U€URLTCO™C™COCCTCOCOCO RG ANTE MODULE TAR 2 
197 THESE ASSIGNMENT IS MODULE GLOBAI. SO FAR AS BASIC 
198 ROUTINES AR D oz 
199 # 61 
200 * POINTER REGISTER ASSIGNED BY MODULE INTER FACE 3 ® 
201 * “tb 
~~ —C«OOGOL 2 B.roc SET )~=~CUPLOUO~<“‘ (COCOCO!WOUOUC~™ CUOMO COMMEND BLOCK 
000002 203 PeTON SET P2 *1/0 DATA AREA a® 
~~ OOOOZ-———SOCOG PP ATOTM SET P2 ~ *T/O TERM BUILD UP DESCRIPTER 0 


u@ 


oe NA MOM SF NM WO NR DB A 


e@ *e- 
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O02 12"27#79 09,322 H6600J7.057 6COS IV 4VX DISPATCHER 791219p1SP PAGE 9 2 
NMFBUG TOOLS DIFINITION SECTION x ) 
9S 
2706 * ; gs 
207 * ZOPS MACRO CREATS ZOP AND ERROR CONE SO 
208 * €S 
209 ZOPS MACRO zs 
210 ZOPcon SET ZoPcopel ~@ 
211 ZOpP ZOpCOD 0s 
212 ENDM ZOPS ‘i 
000040 213 ZOPCOp SET 32 3 oo @ 
214 * ie 
— oe  CMECK. ROTTING OELECT OULS. re np ny ge Te 
216 *  ) 
000001 217 DEBUG EQU oo OR SELECTION = a ee ee 
000001 218 PROTFC EQU l PROTECTION LOGIC - 


000001 219 SECURE EQU 1 SECURITY OPTION VFOR DEBUG 


09 
sa 1248T 02 12°27"79 09.322 H6600U72057 GCOS IV 4VX DISPATCHER 791219DISp PAGE 10 
8g 
@ :: PRODUCTION MODE SUPPORT SYMBOLS / MACROS 
9S 
6s 221 * OS 
@ :: 222 * HERE DEFINES MACRO AND SYMBOLS FOR PRODUCTION MODE _ 
es 223 * PRODUCTION MODE RUNS ON SINGLE CPU SYSTEM. 
zg 7224 * AND EN e 
@ :: 225 * 
06 226 SHUT. MACRO 
ey 227 ORGCSM «#15 
@. 228 SHUT. #1 
ay 229 ORGCSM eCRSMe 
of 230 ENDM SHUT e 
@: ee | 
by 232 SHUT! MACRO - 
Ee. i a i te ee RO WO A DOR DAO ed ee ete 
@: 234 «#15 SET e#1541 | 
tb 235 «CRSMe SFT eCRSMet10 | ty 
ov 236 ENOM SHUT1 ov 
@ « 237 a) 
ae 238 BE 
ls 239 OPEN. MACRO % 
@ « | 240 ORGCSM «#10 « @ 
SE 24) OPEN] #1 Ge 
ve 242 ORGCSM eCRSMe ve 
@«: 243 ENDM OPENe «®@ 
ee 244 ze 
} le 245 OPEN1 MACRO le 
@ 246 #2 TSX 2.#10P a) 
6z 247 w#¥10 SET eo #1041 6z 
82 248 e«CRSMe SET eCRSMetl19 : gz 
@ 249 ENDM OPFN1 2z® 
92 250 oz 
Sz 251 Gz 
@.: 021614 252 aDSPS SET 9100 7 ®@ 
ez | 022124 253 .DSPO SET 9300 ez 
zz 022434 254 2PSTS SET 9500 gg 
@ : 022600 255 .PSTQ SET 9600 2@ 
oz — —<aLT44~—C—~<“<—~«aSHH OQGTS)6USET.OU€6c9UVO0.OCO~t~tO™OSONNOCOCNCt‘a‘CS. - — — | oz 
at 023026 257 .QGTO SET 9750 | i. 
@: ) —"Q2S110 958. 0eGIMS. SET. ©9800  — 0 yin en eg ee 
at 023172 259 .GTMO SET 9850 | un 
9h ee oe oe oe 2h wee Me Set. “OOOO es a a Se ees 
@: 023336 261 «LRMO SET 9950 : a® 
rf Sa —=——“OOO0l2 262 eCRSMe Ser 10 © © Sf SS 
€L ¢ 
@: 
tt 
OL 
@ : 
Z 
@> — 
S 
@ : 


1248T 


791219DTSP PAGE 1 _ 


02 12”"27"79 09,322 H66N0N7.057 GCOS IV 4VX DISPATCHER 
FRROR CORRFCTION PATCH SECTION - 
204% * ss 
245 % MODULE CORRECTION PATCH AREA LAYS FROM PTCHI TO 63 Ba ee a ee ee 
766 €s 
= === QO0025- - O67 (PTCH) SEY 8eeeDloe ne eng enna tN mos eas: 
000070 268 PTCHIE SET 56 00000070 ie 
000033 269 PTCHLS SFT PTcHILE*PTCHI os 
000000 400002 O00 #£270 OCTAL OPD 3672 *PTACH ENTRY ey 
271 7 ee RR PAT CR CLS TO mss sis ge 
272 COMMENT CODING ISSUED . 
273 LOCe CONTENTS T 3} T6 ‘ MMDDYY eis 
000035 274 DUP 2sPTCHLS db 
| 275 vy 
090035 000000 000000 #000 276 OCTAL / / bs 
| 976 ss 
0N0036 000000 000000 #000 OCTAL. / / iy 
276 ov 
090037 000000 000000 £000 OCTAL / / me 
276 ee 
0N0040 000000 000000 #000 OCTAL / / ae 
276 ane 
0N0041 000000 000000 000 OCTAL / / ce 
276 VE 
9N0042 000000 000000 000 OCTAL / / «@ 
276 ze 
000043 000000 000000 #000 OCTAL / / - 
276 «@ 
0nN0044 000000 000000 000 OCTAL / / 62 
276 gz 
0N0045 000000 000000 000 OCTAL / 2®@ 
276 me 
00046 000000 000000 000 OCTAL / eo 
276 ma) 
0nN0047 O00000 000000 000 OCTAL f / ez 
2716 zz 
on0050 000000 000000 000 OCTAL fo / 2@ 
276 ss 
070051 000000 000000 000 OCTAL j / . 
276 a 
0on00s2 000000 000000 # 000 OCTAL / vf a 
276 si 
000053 000000 000090 #000 OCTAL / / > @ 
276 v1 
000054 000000 000000 000 OCTAL / / - 
_ 276 .1® 
0900055 000000 000000 # on0 — OCTAL / / / _ 
276 , ol 
0N0066 000000 000000 #o00 OCTAL / / | 
| 276 = Se ee ee a ee 
0n0067 000000 000000 #£on0 OCTAL / / : 
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12727779 §=094322 
0n0060 000000 900000 
0N0061 000000 a00000 
ON0062 000000 000000 
0n0063 000000 000000 


900064 000000 000000 


0N0065 
O0N0066 


0N0067 


o00000 000000 
000000 000000 


000000 000000 


000 
000 
000 
000 
000 
000 
000 


000 
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FRROR CORRECTION PATCH SECTION 


277 * 
278 * 
279 
780 %* 


OCTAL 
OCTAL 
OCTAL 
OCTAL 
OCTAL 
OCTAL 
OCTAL 


OCTAL 


THE FOLLOWING CELL 
| OF SOMF CELL To HAVE A PARTICULAR PATTERN, ; 
281 * TRAPTR ON EVERY TRACE? D IF NON-ZERO IF MUST B OT 9) ae 


CAN BE 


/ / 
/ / 
/ / 
/ 
/ / 
/ / 
/ / 
/ / 
PATCH 


D 


T9L2Z19DISP 


ONTROL TRAPPIN 


CON 


Vj 


00000070 


THE TRACE ROUTINE TESTS 00000070 


nt ee ee sp RE A sn, 


282 * BF MONTTOREDe PATCHING sitelal ONLY cidade TEST CELL FOR ZERO. FOR 00000070 vt 
28 % ANY re) Ld fe fo \) A UF 9 OAL VY alole eh a Y 4 u ry iN R N SLUSIFISIF § ee 
284 %* SHOULN RE Se ee SHOULD CONTAIN ASK « = CODEDs THE TRAP DISP8A2F 
2825 * WT PRI 
286 * USED» PATCH (RAPER TO CONTAIN THE * APPROPRIATE TE ANSEER INSTRUCTION DISPBA2F 
227 * TO BE XEC*De RE RE TO FPR -RVE A MBLED ANDR AND TA D DISPBA. 
288 * OF TRAPERs DISP8A2F ae 
8 * 82 
290 x | 90000070 
ON0070 QO0000 O00000 O00 29 RAPTR RO KH KK U AND GID 0 TOBE TRAPPE PUCOCOTE 92 
ONOOT] 000000 000000 000 292 TRAPVL ZERO HH HH VALUE oe CELL TO CAUSE TRAP TO Athi 00000070 B 
000072 O00 293 TRAPMK OcT y ROD 'y BEFOR O0U0000 TO x@ 
090073 000005 6000 04 000 294 TRAPER TZE GOTCHA#TRAPEXs IC THE FLAVOR OF Ubalalb did ie SNAP TRAP DISP8A2F a 
ON0074 QOQOODOVO O00] 74 DO0 29 FRAPC “RO Kae CTYP 0 ROM RAPTR 5 SCOUT TO - 
296 INHTB ON 
298 * SPFCITAL ENTRY POINT FOR MONITOR 00000020 
| 29 
0n0075 003524 7102 00 010 300 FP6l1 TRA EXTTO 00000020 i 
301 * ot 
302 * SPECIAL ENTRY POINT FOR MODULE COUNT TABLE DUMPER 
303 * ; 
OnN0076 003524 7102 00 O10 304 EP62 TRA EXITO f 
305 * . 
306 * SPECIAL ENTRY POINT FOR SYSTEM TRACE DUMPER ( EP 63 ) #4 
307 * : 
0N0077 003524 7102 00 O10 308 FP63 ~~ TRA EXTTO -@ 
@ 


Om “N cm tf m oO ON co 
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MODULE OPTION PATCH AREA 


= 
Oo 
Oo 
Cc 
[— 
m 
O 
uv 
—4 
a) 
Oo 
= 
vv 
| 
a 


310 * 
311 * 
= 312 *# 
OND1LN0 00000000000 000 313 OPTION OCT D0000DDO0DNN STSPATCHER OPTIONS 
314 % 
000101 315 RPRIOR EnU * 8B PRIORITY REQUESTS 
000101 316 BSS 3 
317 * ; 
000104 318 APRIOR BSS 3 A PRIORITY REQUESTS 
319 * 
000107 320 SPCL BSS l 
321 * 
000110 322 DVOPT BSS 1 DEVELOPMENT OPTION 
323 % 
324 * . , I? 
325 % ob 
«326 & OPTION BIT 0 = 1 I/O RATIO PRIORITY CONTROL SELECTED .@ 
327 * BIT 1 = I URGENCY PRIORITY CONTROL SELECTED BE 
328 % BIT 18 = 1 CLASS B PRIORITY CONTROL SELECTED 
399% BIT 19 = I CLASS A PRIORITY CONTROL SELECTED © © 
330 * BIT 33= 35 CLASS A LEVEL RESERVED FOR OPERATOR mn 
33] * = 
400000 332 N10 BOOL 400000 xOPTION BIT DEFINITION SYMBOLS «@ 
200000 333 OUR. BOOL 200000 _ ze 
200000 334 OA BOOL 200000 | 
sO T008 335 OB BOOU> — tGOQ0000 — = Se nr yee ye eT 
000007 336 OAOP ~~ BOODL 7 ee 
337 * 82 
338 % BPRIOR BIT 0 = 29 SNUMB OF B PRIORITY JOB 2® 
339 * BIT 3 = Y ‘92 
340 % FOR EVERY ONE DISPATCHE TO THE B . 
iss DRTORITY PROCESS TK <2 @ 
342 % BIT 33 = 35 TIME SLICE MULTIPLE OF 32 MS = 
343 % zz 
000007 344 OBT BOOL 7 *TIME SLICE FIELD me) 
000070 345 OBR BOOL 70 *¥ROUND RATE FIELD 0z 
3246 % 
—_ 347 *  APRTOR BIT 0 = 29 SNUMB OF A PRIORITY JOB ~~ 
348 * BIT 33 = 35 PRIORITY LEVEL (17) a 
349 * 
000007 350 OAL BOOL 7 *A=PRIORITY POSITION FIELD 
35] % 
352 * SPCL BIT 0 = 17 ADDRESS OF OPTION LIST IN DISPATCHER 
353 % ) 7 
354 % BIT 18 = 1 MESUERMENT OPTION. LEAVE SCU CLOCK IN 
4° ¥ + a 
| 356 * BIT 34 = 1 MODULE LOADING/PUSHDOWN 1/0 COUNT 
Se ee TS ee ene ee MODULE CALLING GOUNT —.— ene ae 
358 * BIT 35 = 1 MONITOR OPTION INVOKED 00000020 
oT i. BOO - <-a6O OMT ~— “ROO G@OO00Gr> 0 Se ee 
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es i! MODULF OPTTON PATCH AREA 
000002 360 OMC BOOL 2 
: 361 * | 7 
362 % DVOPT BIT 0 = 1 SYSTEM TRACE DUMPER INTERFACE 
: 363 % BIT 1 = 1 SYSTEM MEASURMENT TOOL 
364 % BIT 34 = 1 PUT DETAIL TRACE OF eYCALH AND eYEXTH e 
<<< 365% ~@BIT 35 = 1 GATING MODE ON SINGLE CPU SYSTEM Sg 
eae A TB te tc ee Rt ss I ee Bae Sn re Ne te ee Ee ee ee i ee 
400000 367 OTRD  BOOL 400000 
200000 368 OVE BOOL 200000 
waaay 000002 369 ODTL  BOOL 2 
000001 370 OPRD  BOOL 1 


ye 


Sr a a ree a ft rte dag mei mp esi psec ne a tS, 
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FNTR Y 1 RFe DISPATCH 
9g 


373 % 


SS 
374 THTS ROUTINE I5 ENTRY POINT I PROCEDURES 
375% ENTERS AFTER INTERRUPT PROCESSING OR TIMFR RUN QUT 2 
376 * AFTER START U m 
3 377 % MUST RUN ON INHIB TILL LDSS. IF ANY INTERRUPT x ) 
—378 % SS BASE FRAME WILL BE DESTORYED og 
379 INHIB ON ae 
oe o00111 380 NSP FOU * or @ 
00111 006063 4706 07 000 3a1 LDP P.RMS sSDeRMS»DL *GET REAL MEMORY i 
ONO112 O00002 2315 00 O00 382 RSW 2eePeRMS | READ CPU 8 
00113 000003 3752 07 000 383 ANA 35DL ov @ 
00114 000000 6272 05 000. 384. EAX PNesAL + SET PROCESSOR INDEX wg 
000115 006133 4726 07 000 385 LDP PekLsSDeKL DL | a 
090116 200044 2263 17 000 386 LOX KPXeeKLPRGePNePeKL * PRO OR PRO 7 
000117 000311 6012 00 010 387 TNZ DSCNT *SLAVE PROCESS RUNNING ON THIS CPU 3 
ON0120 200016 ?l37 000. 3A8 LDSS SKLKPSePN¥ePeKRL VITTA SSR 
090121 004200 6342 07 000 389 LDI SYSIR9DL | 
ON01292 OO1173 7102 00 010 390 TRA. MAIN. *GO_-TO MAIN DISPATCH 
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392 % 


4VX DISPATCHER 
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ss 


393 % THTS ROUTINE IS ENTRY POINT 2 PROCEDURE ee 
394 * ROAD BLOCK THE PROCESS TILL ALL 1/0 TERMINATE 7 
395 * zs 
000000 396 XTMP SET 0 <@ 
000123 397 GRD  ~=EQU % 0s 
000123 398 VDCNIV SHUTe DSP *SHUT DISP GATE 
000124 600017 2203 00 000 399 LDX XTMP oe STATE9 9Pe SSA /* ROADBLOCK MUST IN MAIN CEVEL 
070125 000404 3002 03 000 £400 CANX ATM sy INCE sTeyeesOU IF NOTs ¢ CAN'T WAIT ANOTHER ENDC % 
ON0176 000132 6002 600 O10 401 T2E GR1 a 
000127 402 VDCN2V OPENe DSP NOBEN GATE 10. ABORT | 
090130 000006 2362 07 000 403 LDA eACO069DL DEs G N CeCe tae tts 
0n0131 003625 7102 00 010 £404) TRA BRT1le3 /* GOTO eMBRT103 2S 
000132 405 GR1 FOU x |  ) 
ON0132 002422 7022 00 010 406 TSX DACNX sDACN *TAKE PROCESS OUT OF EXEC | : ig 
ea 000133. 4407 £SHUT. OGT TT RSAUT Y7O QUEUE GATE 
000134 600117 2203 00 000 408 LDX XTMPoeSROSTs9PeSSA *IF GEPR NEEDED « @ 
00135 600233 0543 00 000 409 AOS eo STRECS oP e D5DA 7* COUNT OF WAIT = EXCeREPRT ae 
0N0136 010000 3002 03 000 410 CANX XTMP o eRGEPR DU *GEPR IS SAME AS I/0 te 
0N0137 OOO151 60612 00 O10 471 TNZ GR3 — o¢ @ 
0N0140 600160 2203 00 000 412 LOX XTMPeeSROCT9sPeSSA *ANY I/D. i 
ON0141 OO1155 6002 00 O10 413 TZF ENDSPI — NO EXPLYCT I/O OUTSTAND 2) og 
O0N0142 600005 2203 00 000 414 LDX XTMP oeSATTRo9PeSSA *1S THIS A TDS EXECUTIVE | «<@ 
090143 040000 3002 03 000 415 CANX XTMP 2 eATDSE® | gg 
090144 000151 6002 00 010 416 TZE. GR3 *NOs INCLUDE REMOTE 1/0 IN ROADBLOCK e 
000145 600157 2353 00 000 417 LDA 2 SREMT 9 #Pe SSA —*TDS - DO NOT INCLUDE REMOTE [7/0 : 
0N0146 000000 6352 05 000 418 EAA O*AL *COUNT OF REMOTE I/0 
ON0147 600160 1 00 000 419 CMPA eORQCT a 9FP eo lh V NKED 1/6 
ON0160 001155 6002 00 O10 420 TZE ENDSPL *EQUAL» PUT IN QUEUE 
— 000151 421 GR3 EQU * 88 
090151 600017 2353 00 000 422 LDA a STATE 9 oP eSSA /* UPDATE .STATE ez 
000152 423 OPFNe QGT *OPEN Q GATE z@ 
0N0153 200000 2752 07 000 424 ORA SPE *SHOW IN ROADBLOCK ez 
000154 600 4?5 9 | 
-0N0155 000200 3152 07 000 426 CANA STALRM*DL *IS THIS HAVE ALARM SET 
ON0156 O 600 1 GOT E END 
oe 003225 7052 00 010 428 TSX RETLRXsRETLRM *#CLEAR ALARM 
0160 OOII67T 7102 D0 DIO 499°" TRA ENDSP5 RGU TO END OF DISPATCH 
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9S 9S 
gg 431 * ag 
@ :: 432 % THIS ROUTINE I5 ENTRY POINT 4 PROCEDURE ee 
es 433 % RELINQUISH CONTROL TO WAIT ANy I/O TERMINATE | - 
2s 434 * zs 
@ 090000 435 XTMP SET 0 <@ 
ne 000161 436 RLC EQU % 7 0s 
ey . 000161 437 VDCN3V SHUTe DSP *SHUT DSPATCH GATE ¥ 
eo. ONO1lA2 002424 7022 00 O10 £438 “TSX DACNX*DACND TAKE PROCESS OUT OF FXEC ©0000 ® 
Ly 0N0163 600017 2363 00 O00 439 LDQ ae STATES ePe SSA | i 
s 00164 600233 0545 00 O00 440 AOS TWSTREC a sPe SSA  7* COUNT OF WAIT > EXCeREPORT 
@;: 0N0165 000200 3162 07 000 441 CANQ e TALRMeDL *#ALRM SET _ 
Wy 00166 000002 6012 04 000 442 TNZ Tare | *YES ALARM IS SUFFICIENT 
Hy 01N0167 400000 2762 07 000 443 ORO eTRELC»DL *SET RELINO BIT 
@. ; 000170 6G SHUTe QGT ¥5HUT 1/0 0 ee ee 
ty 00171 600160 2203 00 000 445 LOX XTMPoeSROCT®sPeSSA *ANY 1/0 STANDS | * 
oe ONO1L72 0061155 6002 00 O10 446 — tee, -« “ENpSee  -- © .  eENO) > oe Tae eg 
@ : 0N0173 600027 1203 00 000 447 SBLX XTMPseSCCAL9sPeSSA *IF CeC DON T TAKE IN .@ 
- 00174. 001155 6002 00 010 448 Tce ENDSOL SS  ANO EVENT GICL CENAGLE ee 
ie O0N0175 600117 2353 00 000 449 LDA 2 SROST 9 oP eSSA i 
@ : ON0176 000400 3752 07 000. 450. ANA eRTOTMeDL ¥TF 170 COMP SINCE LAST DISP cea, 
Be 000177 000203 6012 00 O10 451 T™NZ RLCL ie 
i —”——COOZOO—B”~<“<s;~CSssSCPENS:S~C“<«é«iGTO~‘“‘(‘(‘“COCOC*;*CROR EN CGA bg 
@: as 10201 600017 7563 00 O00 453 STO. a STATE 9 9P 0 SSA *SHOW RELC/ WAKE STATE «® 
. A0202  OO1167 7102 00 010 4546 TRA ENDSPD 000 SS 
. | 000203 455 RLCL FAQU * 
@« 090203 600117 6553 00 O00 456 ~ERSA ~SROST+ Pe SSA RESET 170 TERM INDICATOR ——-7- 
= 000204 001155 7102 00 010 #457 TRA ENDSP1 *PUT IT IN QUEUE FOR THE I/0 a 
82 : 8Z 
@ Le Lz @ 
92 92 
SZ 
@« 


ph ee a Be a ces Da ee oo Se ere et Fen oe ae eS ee ee Ge 
oo 
ences i erates nee neniensisnseensnsnnerneeneensnscnneens nannies ent 


ee 
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8S 
a FNTRY 5 END COVRTESY CALL | ® 
459 * SS 
460 * THTS ENTRY TERMINATES COURTESY CALL PROCESSING ae 
461 * ES 
000205 462 FNCC EQU % ze 
000205 463 SHUTe DSP <@ 
0NN206 600017 2353 00 O00 444 LDA. e STATES 9 Pa SDA es oe 
ON0207 000404 3152 03 000 465 CANA eTINCC+eTSYCCeDU *CHECK IF IN CaCe ae 
ON0210 000214 6012 00 010 £466 TN2 EC1 *#YES IN CeCe wv 
000211 467 OPENe DSP | : 
ON0212 OO00OT 2362 OF O00 448 [AQ — sACOOTSDL ~~  ° NOT IN. Gc... - ee OOUOULO 
090213 003625 7102 00 O1O 469 TRA BRT1.3 /* GO ABORT WITH I6 ABORT CODE : 
000214 470 FCl FOU * o 
471 \% ev 
472 % REMOVED ROUTINE WHICH MOVES REGISTER SAVE AREA ey @ 
473 * IN SLAVE PREFIX BECAUSE S/S STACK IS FNOUGH * 
: 474 % TO SAVE REGISTERSe | 
000214 000040 3752 07 O00 £475 ANA e TAWSCeDL CHECK FOR AUXILTARY WeSe CeCe EXTM4800 
0n0215 001043 6002 00 010 476 TZE ENCCE! sal RMAL CeCe M* BE 
000216 600017 6553 00 000 £477 ERSA aSTATESsP.SSA RESET .TAWSC BIT EXTM4820 
ON0217 006133 4726 O7 O00 478 LDP PeKLeSDeKLsDL LOAD REGISTERS NEFDED  ©}©}»§©§©@©EXTM48300600€0@0—~—— OC =e & 
0N0220 200052 6757 00 000 479 LDD PeSSL»eKLSLVs ePeKL BY EXTENDED MEMORY CALL EXTM4840_ ae 
000221 GRO EXTMEM UWCCl UNWIR : aCe WORKIN oF KTM4E50 ve 
000221 500070 6707 00 000 LOno DPLEME*s oPeSSL «®@ 
000222 ICLIMB eDROs %eEX9EAX0 ze 
0N0222 000010713400 000 VFD LE/eEXSO9G/TIZel/1Lel/Oel/Oe6/M, le 
00223. 000000601770 O00 WED L/0e9/098/0eT/eNel/e002/0e2/0el2/.DRO 
0N0224 001043 7102 00 O10 £4al TRA ENCCEN *ENDLVL WITH DSP SHUT 6 
82 
2® 
92 
G2 
— x» 
€2 
2c 
 ) 
[or 
61 
a ® 


Zt 
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FNTRY 6 ENABLE A PROCES 5 


483 * Gg 
4B4 * THTS ENTRY POINT ENABLES REQUESTED PROCESS. es |) 
485 x UPDATE URGFENCy AND IF IN CORE IT WILL BF PUT INTO DISPATCH = 
GR6 # QUFUE. IF OUT OF COREs THE POP VABLED TO CATCH THE ENAB | - 
4GR7 * REQUEST @ 
488 * os 
429 * PRECAL PeCRs PeSSA( OF CALLER) PNe KPX 5 
490 * Q=REGe BIT O = 17 KPX OF ENABLED PROCESS 1» @ 
491 * 18 = 23 URGENCY oe 
492 %* 335 = 35 FUNCTION CODE O OR 4 een es ee ee 
7 493 % OQ s PERMANENT URGENCY ENABLE @ 
TO OO e!!!!O™”™~<“—=<“s~—=“<=<=CiC(<CS'tSSS ee TEMPORARY URGENCY ENABLE 
495 % CALLING eCALL/eCALLX eMDISP 6 ”" 
496 * DENIAL RETURN yf a 
497 * NORMAL: RETURN Lv 
498 * POST LOST PO PI P2 P3 PS - — eS By 
499 % LOST A Q XO Xl X2 X3 X5 (X4) <@ 
500 * BE 
000225 501 FNB FOU 2 
090225 006133 4726 OF 000 #502 “LDP: CC PeKkLoDekKESOG°~CSCC~“—stC‘“ CC‘ UO See ee  ® 
090226 002733 7032 00 010 °#&503 TSX ENBLXsENABL *GO ENABLE IT - 
ONO227 00 4 02 00 O10 04 RA XT TO RDENTAL RETURN = 
090230 003527 7102 00 010 505 TRA EXIT1L #ALWAYS EXIT 1 «® 
‘ ras 
le 
o @ 
62 
82 
2® 
92 
G2 
® 
£2? 
ee 
2@ 
(0x4 
6h 
a 
OL 
a | 
vi 
:i@ 
ot 
« ® 
38 
Zz 
eS 


FNTRY 7? PUT A PROCESS INTO Q 


507 x 
_—C«*@ROBH~”~”~”~COTATSS ENTRY POINT PUT A REQUESTED PROCESS INTO THE DISPATCHER 009s 
Sr re a a 
510 * | * 
511 * PRECAL PaCRe PN PeSSA(OF ANY PROCESS) aS | 
OB Q”:”~”~*:”C«XK i X PROCESS NUMBER TO PUT INTO QUEUE 05 
513 * SHUT * «CRDSP 
1G H””CUCALLING @CALL/eCALLX eMDISP e000 eo 
515 # POST LOST PO Pl P2 P3 P4 iv 
516 * LOS | | : 
000231 517 PUTQ _EQU * _ w® 
000231 518 SHUT e PST | | | vw 
000232 003255 7012 00 010 519: TSX PUTPRXsPUTPROG *PUT IT INTO QUEUE 
| 000233 520 OPEN. PST 
0N0234 003524 7102 00 010 Sel TRA EXTTO 
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| 
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_ 
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gs 
FNTRY 8 = CLEAR CACHE ~@ 
9S 
573 * ; —— | 00000020 ee 
524 % THTS ENTRY IS CALLED BY .«SHUTL MACRO TO CLEAR CACHE IN OWN ~~ O00000Z0 > ~——,, 
525 » PROCESSOR WHEN CALLING ROUTINE IS A PRIVILEGEp SLAVE 0000002 es 
526 * zg 
000235 527 ccAc NULL 00000020 ~@ 
070235 000000 O116 00 528 CCAC CLEAR CAC . Se 
090236 003524 7102 00 O10 529 TRA EX1TO | AND RETURN 90000020 
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ENTRY 9 L720 INTERRUPT SwIt3TcCH 
531 * 
532 * THIS ENTRY POINT Sw H LAVE PROCES 0 PRO UR PRO 
533 * FOR I/0 SES PROCESSING 
534 * AND OR DAR Y, AN Wi<t] \i 
535 * INTERRUPTED PROCESS IS PuT IN QUEUE AGAIN 
536 * 
537 * DON*T LOST P2 I0S NEED IT AGAIN HHEKKHKKKHKKE KHER ERE 
538 * PRECAL PeCRe PaeSSAe KPXe PN 
539 * eKLPRG MUST NOT ZERO a 
540 * P4 J 30) LC BY 3 : 
541 * eCRDSP IS SHUT BY IOS 
542 %* CALLING EPPR PO 9430 . 
543 \% XEC 2 CRCAL 9p ecR E 
544 TRA 9eeP 
545 * RETURN UNDER PROCESSOR PROCESS e 
000000 546 PeRET SET PO ‘ 
000005 547 P.SAVE SET P5 
000000 548 PePDP SET PO a 
000000 549 XPTR SET ) WA le 
000237 550 IOTRM EQU * g 
090237 006130 4776 07 000 55} LDP PeCReSDe Sue /* RECOVER PeCR AND SAVE RETURN ee 
0N0240 000305 4506 17 O10 552 STP PRET? ! : 
090241 200000 6357 00 000 553 EPPR PeSAVEsesPe 1OTM *SAVE DISCRIPTER 
0N0242 400005 2353 00 000 554 LDA eWETYP 9 9P4 / H 75 OVERFLOW si 
0N0243 006133 4726 07 O00 555 LOP PeKL eSDeKL oDL 
ON0244 700066 7173 00 000 556 XED eCRNSGt2o9 / HECK IF ANY G C ° 
000245 000002 6002 04 000 557 TZ 291C 6z 
| 000246 558 ZOP 2 ez 
0N0247 000010 7352 00 000 559 ALS 8 *MARK S/S EXTEND PROCESSING 
090250 006036 4706 0 000 560 LDP P.PDPeSDe DL - 
090251 100000 3752 03 000 5Al ANA eRCFLT se DU *REQUEST ON »SROQSTe IT WILL ae 
000252 600117 2553 00 000 562 ORSA © SROST 9 oP e SSA *BE PROCE D AT NEXT DISPATCR 
0N02583 000000 2353 16 000 543 LDA sKPXePePDP /* IF EXECUTING IN CeCe »9 IN SYSTEM es 
090254 001400 0 000 564 CANA "XCODeD OR VENT WA TGe : 
0N0255 000260 6002 00 010 565 TZE IOTM] 
6N0256 002000 2 O 000 66 ORA INTRP sDU s VY INTERRUPTED PRIOR = 
000257 000000 7553 16 000 567 _ STA sKPXePePDP a 
568 TOTM! fe ¥ 
000002 569 OVHX SFT 2 00000020 “8 
090260 006 0) ele ohke 570 TOVHO X VHX se OVER PRU) (TR M UO eoP CO00002Z1 " 
090241 700072 2363 17 000 571 Loa CROCK 9PNePeCR /* GET TIMF OF TNTFRRUPT .® 
ON0242 003541 7012 00 010 572 TSX ZeRSCRB THEN ACCOUNT POMBO 
090263 002430 7022 00 O10 573 TSX DACNXeDACNB /* PROCESS SwITCH a 
SB VGQeO—S—OSS RAO RETURN FROM DACN ED 
- 000001 575 P.PInN SET Py *P1=2P.PID AU = PID ENTRY a 
090264 100000 2362 OF O00 576 0 DDC ROFL a I 
090265 600117 3763 00 000 S577 ANQ eSROST se ePeSSA *IF S/S OVERFLOW OCCURED | @ 
090266 O00Z71 6002 00 O10. #578 TZE TOTMO KEXTEND FRAM OR NE D 
090247 000300 6362 00 000 579 FAQ 192 *IN RE=DISPATCH 
000270 100002 0563 01 6000 5:80 ASO 2sAUeP.PID = 


Oo- NAN MO ST HM YH HR OD 


eo s- 


S 
ras) 
pe see ee es eet a eh ee ote en ie a i a I eS a ee 19 
wees os 09 @ 
1248T 02 12"27"79 094322 H6600N72057 GCOS IV 4VX DISPATCHER 7T91L219DISP PAGE 23 nf 
8S 
FNTRY 9 YyO INTERRUPT SWITCH8H ~@ 
9S 
000271 5a1 1OTMO EQU al ss 
| 000271 592 SHUTe PST 
On0272 003255 7012 00 O10 583 TSX PUTPRXsePUTPRG *PUT THE PROCFSS INTO QUEUE = 
000273 584 OPENe PST | sagt: zs 
585 CHANGE MACRO INTERFACE «SSA STACK FOR RE#DISPATCH ~@ 
000274 010000 2352 07 000 #5286 LDA STyP1l DL os 
000275 600043 2753 00 000 587 ORA eSELVL 9 #PeSSA /* SET MACRO STACK TYPE 1 ( 64 S/S ) ev 
000276 600012 7553 56 000 °#£588 STA Chet hsPccok ee ee ee ee 
| 000277 589 TOTMX NULL RETURN HERE AFTFR SUB@#DISP INTERRUPT SUBD4770 i 
ON0277 006026 4716 00 590 a) wPID?SDePID? = 
0N0300 100004 7727 00 O00 591 LOWS ePNPOP#492P ePID wy @ 
000301 100005 7727 00 000 #592 LOWS ePNPOPR4G41 99P ePID by 
0n0302 500000 6327 00 000 593 EPPR PeTOTMeesPeSAVE *RESTORE FOR 10S - 
000303. 000305 4706 17 010 594. LDP PeRETeIORET*SPN 0000 1@ 
000304 000000 7103 00 000 595 TRA 9ePeRET ‘ 
a a OSS: BOm FORET B5S°  @NRPRO .---2. 0 pe ee een nne ep ae Gen Rr avi 
«597 % TTLS ENTRY 10 END EVENT «< 
598 *ENDFVT EQU ENDLVL: ee 


So: ae en ae gah | ~ oo 
es 1248T 02 12827=79 09,322 H6600N7.057 GCOS IV. 4VX DISPATCHER 791219D1SP PAGE 24 e 
8s 8S 

@ |: FNTRY 11 N1TSCONNECT EXECUTION ry 
9S 9S 
ss 600 * Ss 

@.: 601 * THTS ROUTINE IS ENTRY POINT 11 PROCEDURE mms 
es 602 * IT TAKES OUT THE PROCESS OUT OF EXECUTION IF THERE IS ANY ee 
zg AN3 * ENABLE REQUEST OR SYSTEM EVENT THAT PAYAR LE zs 

@ :: 604 * THE PROCESS IS PUT IN DISPATCHER QUEUE AGAIN .® 
os 605 * = os 
. 000311 606 DSCNT EQU ~ # 

@. 000311 607 SHUTe DSP OS RSHUT DSP GATE 
uy | 000312 608 NSCNT1 FQU % /x ENTRY AFTER SwWAPOUT 
wo ONO3Ii2 024622 7022 00 O10 409 TSX DACNX?D ¥ 

@: 090313 600117 2353 00 000 610 LDA eSRQST 2 ePeSSA /* GET REQUEST 
vy - 000314 6) 1 SHUT e PST vy 
ep 000315 001000 3152 07 000 612) CANA eRTRO®DL *TIMER RUN OUT ENTRY 

@~ 090316 001163 6012 00 010 413 TNZ ED3 *Y 
tt | 0N0317 400000 3152 03 000 414 CANA eRDEAD »DU *x*IF THE PROCESS IS FROZEN» 
wv Ong3s?0 000330 60i2 00 O10 6715 N DCI PUT OUT 0 PATCH QUEU 

@« 0N0321 100000 2352 07 000 416 LDA « TWAKE SDL *SHOW WE WAIT FOR ENABLE BY 
Bt 090322 400000 2363 16 000 617 LDA eKPXereP . Be 
le 000323 600017 2553 00 000 618 ORSA eo STATE 9 oP eSSA *ANOTHER PROCESS : 

@.« £0f0374 002000 37642 0 00. 619 ANO SeEN B aia? 
se 090325 001163 6012 00 010 620 TNZ ED3 *GO INTO ENDSP PuT INTO : | a 
ve ON037?6 OO3713 7012 00 O10 Gl TSX CKEVTXeCKEV ¥ ERE 1S ANY PAYAP N ve 

@: 090327 001163 7102 00 010 672 TRA ED3 *GO INTO ENDSp PUT INTO "Q 
ze 000330 623 NCl EQU x ee 
Le 090330 001164 7102 00 010 624 XeDSCN TRA ED4 *GO INTO ENDSP 
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FNTRY 212 GEWAKE @ 
9S 
427 * 
_—*AOR OHR!”™)™©™)©)uUumTATS hUENTRY POINT SERVICES MME GEWAKE FUNCTION SD 
629 * ; eS 
630 * PRECA Q=REGe ME INTERVA 0 ALARM IN MICROe o 
631 % 00000070 ,@ 
632 % ONF IN UPPER IS ABOUT 4 SECONDS D00000T0 Pg 
433 * . 6r 
——“‘<«‘*~S®/!ST S54 634 WAKELM SET 3000000/16 83 SEC IN 16 MICRO SECS 
000331 635 GWAKFE EQU % ly 
———CSC——S OOS TL~~«SSSH~C:””””CSAN ~~ iT Se ee ee ee ee eR eee ee ee 
000332 400000 2353 16 000 637 LDA oKPX9PePST *GET PERMANENT URGENCY ov @ 
070333 600233 0543 00 000 638 AOS eSTREC a oP e SSN 
0N0334 002000 3152 07 000 #639 CANA PS.ENBsDL *IF ANY ENABLE REQUEST 
0N0335 000354 6012 00 O10 640 TN2 GW2 ——————¥5KIP TO SLEEP THIS TIME... —@ 
000336 Q00077 0362 07 O00 641 ADLQ 2077 9DL *TRANCATE AT MILI SEC UNIT . 
090337 O00006 7732 00 O00 G62. ERE 
000340 600215 2353 00 000 443 LDA ao STMPQsePeSSA /* GET TIME TO CHECK IF MORE THAN 3 SE <@ 
070341 000006 7762 00 000 644 QLR 6. RORGENTY IN BUT S035 
000342 556154 1152 07 O00 645 CMPA WAKELMeDL *SET URGENCY TO ZERO 
090343 000346 6022 00 O10 646 TNC GWT IN ot 
090344 000100 3352 07 000 647 LCA =0100eDL *CLEAR PST URGENCY « | URGENCY WILL ae 
000345 400000 6 000 648 ANSA wampPXePeaP VED ALARM E ee 
000346 649 GW1 EQU x 7 «® 
| 000346 650 OPEN. PST | ses 
000347 000077 3162 07 000 651 CANQ Z0779DL /* URGENCY MUST EXIST 
0N0350 000352 6012 00 010 4652  &x4TNZ2 ih SS ee 
00351 000001 2762 07 000 653 | ORO 1eDL /* EVERY PROCESS MUST HAVE NON#ZERO ey 
| O00: 4654 GWIA EQu % URGENCY. WHY TH TE HA RO oe _ 
070352 003126 7052 00 O10 °} 655 TSX SETLRX»sSETLRM “SET ALARM | z® 
090353 OOO3I1 7102 00 O10 656 TRA DSCNT TAKE OUT OF EXECUTION TTX 
000354 657 GW2 EQU *% gz 
090354 002000 2362 07 000 658 Lda ~ PS.ENB»DL 2 @ 
ON0355 400000 6963 16 O00 # £659 ERSO s9KPXoP.PST *#RESET ENABLE REQUEST LAG i 
ao — Ose: — 1660. ° OPE Ns St. °°. oe 
0N0357 003524 7102 00 O10 £641 TRA EX1TO 


0N0360 O37777T7T7TTOO 000 662 ALMASK OCT 3777777 TTOO oz 


nr A TS A Pr er yer pepe EAR ro enteral 


@ os : . 09 
ne 1248T 02 12°27"79 092322 H6600J7e057 GCOS IV 4VX DISPATCHER 791219DISP PAGE 26 4 
8S gs , 
@.: FNTRY 13 SET ALARM CLOCK ~@ 
9S 9S 
gg 644 * gs 
@:: | “= 665 * THIS ENTRY POINT SET ALARM CLOCK TTT = 
es 666 * 00000070 ie 
2g 4hAT * ONF IN UPPFR YTS ABOUT 4 SECONDS DOU000TN zs 
e& is 668 * @ 
os : 000361 669 SCK EQU * 0s 
a 090341 003126 7052 00 010 #670 TSX SETLRXsSETLRM *THIS IS ALL TO DO 
@ x 000342 003524 7102 00 010 671 TRA EXTTO % UR 
LY 
or 
@: 
vy 
€p \ 
@~ 
or . 
@ «: | | 
se - 
LE 
@ :: a a a A aaa Aaa 
GE | 
ve 
@ « 
Ze 
he 
@ ‘ 
62 
82 ‘ 
@ , | | | 
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FNTRY 14 PMME WAKE 

673 * 

674 % THIS ENTRY POINT SERVICES pMME PRIMITIVE 

675 * . 

ATH * PRECAL QeREGe = M N RVR ge ' ALARM NOM de 

000363 677 PMME EQU % , 

090343. 001750 4022 07 000 678 My 100090 SUNIT IN MICRO-SEC.° Oe ee 
000344 0000046 7722 00 o00 679 ORL *OK IN 16 MICRO SEC 
090365 600215 7563 00 000 680 STQ “= STHPQ 3PeSSA PUT BRGUMENT TN 6 SB 
020366 000331 7102 00 010 4681 TRA GWAKE 
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FNTRY 1 5 S US PEN D A PROCESS 


683 * sg 
684 % TH1S ENTRY TAKES OBJECT PROCESS OUT OF DISPATCJ QUEUE. 
685 * ES 
686 * PRFCAL Q*REGe KPX OF OBJECT PROCESS zs 
000000 6R7 SSX SET 0 <@ 
000001 688 SSY SET 1 ms 
000367 689 SSPND EQU * 6Y 
000367 690 SHUTe DSP =e 
000370 691 SHUTe PST 
000371 A000 2553 02 C00 aos LAS ST TARE OUT PROCENS STATUS eee 
090372 006042 4736 07 000 693 LDP P.PROSDePROsDL 
090373 100000 3152 03 000 4694 ~~ EINE OS EXC 00 I ES IN ECU Se 
000374 000407 6012 00 010 695) TNZ SS? *DENIAL TRETURN s 
090375 074000 3752 03 000 696 ANA PSeDWT FPS 0 SSAFPS oe STOFPS eGAT DL 
090376 000404 6002 00 O10 697 TZE SS1 *IT IS or IN DISPATCHER QUEUE 
000377 400000 6553 02 000 498 ERSA +Gue 
0N0400 300037 2203 02 000 699 LOX SSX sDePROQUSPs PRO *TAKE IT at ‘OF QUEUE 
090401 300037 7213 02 000 700 CXL SS5SY eDePRO*0U9 Pe PRO 
000402 300037 7403 11 O00 701 STX SSX sDePROOSSY sPeoPRO 
90403 300037 4413 10 000 02 SXL SSYeDePROPSSK PPR 
000404 703 $$1 FQU % = 
000404 T04 OPEN. T 
000405 705 OPFNe DSP 
000406 003527 7102 00 O10 #706  #.;TRA  XTTI NORMAL RETURN eg 
000407 707 $52 EQU % te 
000407 708 OPENe PST : gt & 
000410 709 OPENe DSP | ee 
00411 003524 7102 00 010 #710 1RA EXTTO DENTAL RETURN TK, 
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02 12°27"79 09,322 H6600J7.057 GCOS IV 4VX DISPATCHER 791219D1SP PAGE 29 iS 
FNTRY 16 NELAY EXECUTION ~@ 

! 9S 

T12 * gg 
73 &)~”~*~*C*SRT'S:«OENTRY PUT PROCESS OUT OF EXECUTION AND PUT TT IN. ©® 

714 x DISPATCHER QUEUE TO DEALAy ITS EXECUTION - 

000000 715 PePDP SET PO zg 
000412 716 DELAY EQU x? @ 

000412 717 SHUT, DSP os 

O0N0413 002422 7022 00 O10 718 TSX DACNX »DACN *TAKE IT OUT OF EXECUTION 


0N0414 001156 7102 00 010 719 
720 


TRA ED2 *GO | NDSP ROUTIN 
*TO PUT IT INTO DISPATCH QUEUE 


1248T 0? 12”27"79 09,322 H6600N7.057 6COS IV. 4VX ~~ DISPATCHER 791219D1SP PAGE 30 


FNTR -Y es w AK S 


7?2 * gs 
723 % THTS ENTRY SERVICES SYSTEM PROGRAM GEWAKE OD 
TA4% * €S 
775 * PRECAL QeREGe TIME INTERVAL TO SET TIMER zg 
726 * AeREGe BIT O = 1 TIMER ENABLE URGENCY OPTION EXISTS ~@ 
727 ** 12-17 ENABLE URGENCY os 
728 * 18= 1 SLEEP URGENCY OPTION EXIST " 
Cg ee wy ea te se ages ne eS eng ae ne RO ee ee, ——— = POU D0O TO 
730 * ONE IN UPPFR IS ABOUT 4 SECONDS | 00000070 . 
731 % 7 CY a 
000415 732 WAKS EQU * o @ 
; 000415 733. SHUT « PST | e 
000416 600214 2353 00 000 734\ LDA oe STMPA 9 ePeSSA *XURGENCY OPTON a 
ON0417 000422 6042 00 010 735 °° #4+‘MY WK 1 ¥YES | 
090420 400000 2353 16 000 736 LDA eK PXoPePST *USE URGENCY IN CURRENT PST a 
0N0421 000423 7102 00 O10 737  &4xTRA WK2 a eS eae 
000422 | 738 WKl FOU x «® 
ON0422 000022 7712 00 000° 739 ARL 18 | - 
| 000423 740 WK2 EQU * a: 
0N0423 000006 7732 00 000 #741 LRL 6 : = 
000424 400000 2353 16 000 742 LDA sKPXoP.PST /* GET PST TO CHECK ENABLE REQUEST | se 
090425 000006 7762 00 O00 743 QLR 6 KPREPAR TIMER ENTRY FORMA ee 
000426 002000 3152 07 O00 744 CANA PS.ENBeDL *SKIP THIS SLEEP REQUEST «® 
0N0427 000354 6012 00 O10 745 TNZ GW2 a eens. 
090430 600214 7213 00 000 746 L XL, 290 5TMPAe sPeSSA *AwREGe BIT 18 te 
090431 000436 6052 00 010 747 ®&4xTPL WK3..—~<“‘C;SUOW..06®SCEEP URGENCY NOT 6 SPECIFIED.0060€™©™©™©™UO#~7]7}+PTCOC™ttCSSTT. oe 
000432 400000 6307 16 000 #748 EPPR POssKPXePePST es 
090433  OO0100 1007 00 000 749 °@& °° &«.:MLR°»+(Ldeo (dl) 4SMOVE URGENCY 6 BITS (1000 Bz 
000434 600214 5200 01 000 750 ADSC6 eSTMPAs5elePeSSA  *FROM ARG TO PST ENTRY -®@ 
090435 000000 5200 01 O00 #751 ADSC6 ‘OelaPO.- °° ©" ee ee 
000436 752 WK3 FQU 62 
000436 | 753 OPEN. PST z @ 
090437 O00077 3162 07 O00 754 CANQ 2077 9DL /* URGENCY MUST NOT BE ZERO ie 
090440 000442 6012 00 O10 #755 ~~ TNZ2 WKG RR ze 
090441 000001 2762 07 C00 756 ORQ LeDL /* WHY ZERO  ) 
; 000442 757 WK4 FQU % RS SS ge ee ne tgs Se 
0N0442 003126 7052 00 O10 758 TSX SETLRXeSETLRM *SET ALARM 


, 6L 
090443 OOO3I1 7102 00 O10 759 °° &4x}°TRA £DSCNT  }}}}.©>©©TAKE OUT OF EXECUTION ~~ @ 
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O2 12727779 094322 H66004N7e057 GCOS IV 4VX DISPATCHER 791219NTSP PAGE 3] ye 
FNTRY 18 CLEAR DDS/SSSA/SGATE ~@ 
9S 
76) * Sg 
762 * THTS ENTRY CLEARES DDS STACK RELEASE SSA PAGESOAND OO a 
763 * OPEN MODULF GATE es 
Th4 & C D BY .MB ( ) 
TAS % CALLED BY .MPOPA ¢ AT DISASTER ) X5 = DISASTERD PROCESS KPX 
766 % 
000000 747 XOLDTL SET fe) *CURRENT TAIL PAGE OF «SRM EMPTY Q 
000001 748 XNEWTL SET 1 *NEW RELEASED PAGE QUEUE TAIT 
000005 769 XOBJ SET 5 *OBJECT PROCESS | KPX - 
elezezeye 770 ERO ECON YY CLEAR y VIRY es 
000002 771 XCOUNT SET 2 COUNTER OF WAT TING GATE PROCESSES _@ 
‘ 772 vy 
000001 773 XPTR SET l *GTM ENTRY POINTER | . 
000000 774 XTMP SET 0 | ~~ ea 
775 eee 
C—O OOOOOT”—O—~C“i‘“‘iIS OPS RM SET PL ee Oe 
000001 777 PaPIN SET Pl | « @ 
000000 778 PeSPX SET PO se 
on000l 779 P.ePSH SET Pl ik 
On0001 780 PeEIS SET Py ———,. @ 
781 INHTB SAVESOFF en 
ee OURGGS —(“‘(téaAR? CLDDS FOU. rene na nn en a 
090444 000000 6350 16 000 783 EAA sKPX «® 
0N0445 O00001 1060 03 000 #£7a4 CMPX KPXeePNPOP DU 00 ge 
000446 000454 6010 00 O10 #785 TNZ CLE] 
0N0447 000000 6350 1 000 786 FAA »XOBJ / De Q H 
0N0450 006024 4714 07 000 787 LDP PePID*SDePIDsDL CHANGE WSR TO ACCESS OBJECT PROCESS 
ON0451 0 2 fy) 9) 788 
| | 789 INHIB RESTORE 
090452 LOOOOL 7727 O1 000 790 LOWS  leAUsPePID °° °°» © Se Oe ee ee 
0N0453 000002 7712 00 o00- 791 ARL 2 sz 
— i en. -: “POOKEe ~- FOO CLE “eQuU ep ns g ry 
090454 000000 6252 01 000 793 FAX XORBJesAU *SET OBJECT PROCESS KPX 
| O00G00..- 795. —SMUte> Doe" ae 
090456 006204 4716 07 000 795 LOP Pe Eatbeu seiner ; z@ 
0N0457 600105 0 00 000 796 jeje 25). OAD+30eP YOVE eSNTRY WORD TO VE PR X eg age 
09044690 100006 6707 00 000 797 LDD P.SPXsPH, SPX 9 Pa PSH 
ON0Sh1 DO00IS 7563 00 000 T98 ST NT RY 9 Pe SPR 
090462 600102 7203 00 000 #4799 LX XTMP 9 eSLOAD® 9PeSSA 
10463 OO05T6 6002 00 OO B00 = = RNO GATED MOD 
00464 600017 2363 00 000 801 LDA eo STATE 9 sPeSSA #RESET eTGATE BIT TO SHOW NO 
ON046 elem melere he 0 000 3} ANQ e@TGATE sDU i D MOD. Y Us a 
ON04466 000022 7712 00 000 803 ARL 18 | - 
ON0447 6000 6563 00 000 RO4 R50 a STATE 9 oP e SoA , i® 
. 000470 BO5 SHUT ut . 
® ” D000 00 ~000 BG epee es 
000472 000000 6232 00 000 8N7 FAX Sceeo. *INITIALIZE VALUE TO LOOP 
OOS TS OOOO BBO OE IT 
090474 000002 6212 00 000 a09 EAX XPTRe2 
i$ 00675 810 CLe2 FOU ¥% 7, @ 


EY. i . 7 oo ® 
1248T 02 12"27"79 09,322 H6600U7.057 GCOS IV. 4VX DISPATCHER 791L219DISP PAGE 32 i 
8S 
FNTRY 18 CLEAR DDS/SSASGATE ~@ 
9S 
ON0475 777777 2362 03 O00 @il LDA m1 sDU és 
090476 000000 5202 01 000 e@i2 RPTX 1 ¥ 
000477 200000 2113 11 O00 2813 CMK sXPTRoPeGTM *SEARCH FOR THE KPX e 
0n0500 000510 6012 00 O10 at4 TN2 CLES END OF SEARCH ag 
ON0501 277777 4433 11 000 815 SXL XZEROo@1 eXPTRePeGTM <@ 
ON0502 000506 6052 00 O10 2816 TPL CLE3 = eos ee ee ee és 
00503 400000 2362 03 000 817 LDO 20400000 »DU éi 
0N0504 000001 6222 12 000 2818 EAX XCOUNTeLe®XCOUNT /*® COUNT UP WAITING ONE - 
ON0505 277777 6563 11 000 819 ERSO ml eXPTRePeGTM Ly 
——— FOO05 0G ©) OR 0 CLES) OEQU % gg ee ae ee ener oF ae 
0N0506 776000 3002 03 000. al CANXO 30776000sDU 
ON0507 000475 6012 00 010 972. TNZ CLE2 “vee NOT ENT GO REIRY 0 o> ee ne a 
000510 B23\CLE4 FQU * 
~ 000510 B24 OPEN. GTM + @ 
ON0511 000000 6222 12 000 a5 FAX XCOUNT s »XCOUNT *IF ANY PROCESS WAIT : 
090512 O00516 6002 00 O10 976 £‘TZE CLES RENABLE THOSE OF 
090513 O10000 2362 03 O00 87 Loa PS.GAT»DU *TELL PROCESSOR PROCESS GLOBAL EVENT H m ) 
090514 001402 2562 00 010 ° a8 ~ ORSO DSPEVT¥®OCCURED FOR GATE WAIT ae 
000515 000001 0112 07 O00 £829 TeCLE4 NOP MPENB=MPBASE eDL ~ i 
830 * IF MULTI-PROCESSOReCHECK THE OTHER PROCESSORe TTT ce D 
831 % IF TDLEs PAT HIM ON THE SHOULDER. me 
832 %* TSX PUTPRXeMPENB ve 
833 
: 000516 834 CLE5 EFOQU % | , ee 
0N0516 006133 4726 07 000 835 LDP PekLeSDeKLsDL 00000020 
000517 600224 7223 00 000 936  °+&}LXL  XPAGEteSRMWK9ePeSSA 20000000 TS 
000570 000522 6002 00 O10 837 TZE CLE5A 6z 
— ON0521 005577 7012 00 O10 838  4°¢SX RLSHX®RLSH  XRELEASE SSSA  ©§$«=~ 0 gg 
000001 839 P.PSH SET Pl 
OOOO —~—~C~SRO PADDS SET PO gg 
000000 841 P,.SSR SET PO Gz 
| 000522 842 CLESA EFQU 8 B® 
ON0522 600224 2223 00 000 843 LDX XPAGE + eSRMWK9sPeSSA *ANY OTHER PAGE . 
090573. OO00S32 6002 00 O10 844. TOE CUESB IN gg 
000524 600172 1023 00 O00 } g45 CMPX XPAGE +eSSPRO9ePeSSA *IS IT IN PRIVATE SSA QUEUE i ) 
00525 000532 6002 00 O10 846 TUE. Cleon a 
00526 500000 6317 00 000 ~~ 847 EPPR PleooP5 ét 
848 P.~SRM ET LINK ao @ 
090527 006047 4756 07 000 849 LDP PeSRMsS5DeSRM9DL #1T Is TRANSIENT PAGE “i 
INO 30 ojer? 0 O06 O10 B50 X NK X 9 TK TTO Quev Si 
0N0531 100000 6357 00 000 B51 EPPR P5so5Pl1 i@ 
TT —— BOOOOL”~*«“‘éi‘=S‘S OS PeSRM SET) PLO AM RESET ag 
000532 853 CLE5R EQU * 
090532 600172 0323 00 000 854 Lpac 2 SSPROG9P ODDA *#RELEASE .® 
090533 000563 6002 00 010 ~~ 855 TZE CLES *NO MODULE IN CORE - 
090534 006133 4726 OF O00 856 LDP Peo SDeRO ODE 
0N0535 006047 4716 07 O00 B57 LDP PeSRMsSDeSRMoDL - ®@ 
000536 06042 a1aG OT 000 see Lop = PieROveDeRROsD SS SSS Se eee 
onos3? 200054 7203 00 O00 2859 Ex XOLDTL» eKLSRM9 oP eKL ‘ 
OA0bs0 “0005456 6002 00 O10: 840 °° le CLE6 0 tt ee 
¢ 
v q 
. @ 
ra 
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8S 
FNTRY 18 CLEAR DDS/SSA/SGATE- Zz 
0N0541 O00000 6212 06 O00 Ral FAX XNEWTL so QL _ 
000542 L77777 7563 10 000 R42 STO #1 sXOLDTL oP eSRM pS 
0N0543 100001 7403 02 000 ~~ 863 STX XOLDTL 91 9QUePeSRM = 
000544 200054 4 00 000 864 X XNEWTL ss eKLC ORM) oP ak | 2s 
000545 000547 7102 00 010 8645 TRA CLE? ie 
«000546 B66 CLE6 EQU % | Be 
0N0546 200054 7563 00 O00 847 STQ eKLSRMoePeKlL oe 
000547 R68 CLE? EQU r ow @ 
B49 ENABLE IF ANY WAIT eo 
0N0547 600102 0343 00 000 &70 LDAC 2 DLOAD? Pe DoA ov 
000550 300002 7203 00 O00 a&7i LXL XTMP eDeSSAP4l 9 oP ePRO « @ 
000551 000000 6352 O1 000 #872 FAA  eAU - 
00552 300001 0553 00 000 873 ASA DeSSAPs ePePROQ /* COUNT UP FREE PAGES 
090553. 000014 7712 00 000 874 —ARL 12 o 
O0N0554 000000 5312 00 000 875 NEG ‘6 
ON0555 QO00 () @ OOO R76 ASD De SDAR 9 Oh erk QUIN DOWN ) we NUe or 
0N0556 777743 1002 03 000 877 CMPX XTMP sDeSSAP+1*DePRQs DU /* IF ANY ONE WAITING <@ 
090557 000563 6002 00 O10 °#&878 TZE CURR ap a pe ee aie a ae eee ae 
00560 020000 2352 03 000 R79 LDA PS.SSAsDU *TELL PROCESSOR PROCESS SSA WAIT EVENT 
ONO5hL OOL402 2552 00 O10  &RO  ORSA  OSPEVT AAS OCCURED 00 
ON0542 000001 0112 07 OOO ~~ Bal TeCLF7 NOP MPENBeMPBASE +DL | - 
3K: 7 MU =D) ra) : UTHEK AOU @ vE 
BAA * IF IDLEe PAT HIM “ON THE SHOULDER. -@ 
as : Yc an i) Camm 91 Ob °2° 0 00 | 2) 5 | 5 rc 
000563 885 CLE8 EQU * lc 
——— = 00563. sae —-OPENG DSP, 4, ee a ee ee oe 
000564 600154 4503 00 000 BR7 STZ eSPUSHs oP eSSA *RELEASE SSA MODULE IN DISK ea 
ON0565 600 03 00 000 BRE eo SPUSHF1 9 2 Fe Q5P oe “82 
ON0546 600156 4503 00 000 889 STZ « SPUSH#290PeSSA | | n® 
0N05467 6000371 4503 00 000 890 STZ e SNL VL 9 ePe SDA 9z 
0N0570 000001 1062 03 000 agi CMPX KPXoePNPOP sDU *IF POPs RETURN TO HIS ADDRESS SPACE * 
ONO5S71 003524 6012 00 010 aga. TNZEXTTO aaa : 2@ 
ON0572 006024 4716 07 000° 9893 LDP PePIDsSDePIDeDL | ez 
ONC 7 OOOO ele VOQ RG OW aPNPOPRG4+L eer e kr IU 22 
0N0574 003524 7102 00 O10 } 895 TRA EXITO 2@ 
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! 8S 
— ENTRY 19 PAY WRAPo#HUP @ 
9¢ 
897 * Ss 
898 % THTS ENTRY PAYS USER'S wRAP=UP PROCESS ~ Ys 
899 * eMBRT2 ISSUES eGOTO eMDISPel9 TO RELEASE SSA MODULE i‘ 
9N0 * PRECALL eVKS HA YTRY 0D RIPTER TO WRAP UP ROUTIN - 
901 * | .<®@ 
| 000575 902 WRAPUP EQU * 98 
000575 000340 6352 00 000 903 EAA o SSAWK 
000576 600012 7553 00 000 904 STA 0S5A99PeSSA 
090577 600043 4503 00 000 9n5 STZ eSELVL ss aPeSSA NPAY IN LEVEL 0 
090600 600005 2343 00 000 906 SZN oSATTReePe doe VE MODEe DON HECK ENTRY COC DTSPOPNP 
090601 000612 6052 00 010 907 TPL. WRPAOK AGAINST LAST USED ISR BOUND DISPOPNP 
ON0602 600214 0537 00 000 908 STD3 oSTMPA 9 9Pe 
000603 001764 4706 07 000 909) LOP P.eSSReeSSReDL eal SST TO ACCESS DATA 
ON0604 001761 4706 07 000 #910 LOP PeSSReeClYPs YP 
0N0605 000010 2353 00 000 911 LDA eWISR99P.SSR ¥GET BOUNDARY OF INSTRUCTION SEGMENT 
0N0606 600214 1153 00 000 912 CMPA a STMPAs ePe doe RCHECK ENTRY 10 T TR TEN 
ON0N607 000612 6032 00 010 913 TRC WRPAOK | 
090610 000234 2362 07 000 914 ° °° ° °&2Lda eAC2349DL  ABORT* ILLEGAI. LOOP/WRAPUP ADDRESS == Q00000Z0 - 
0N0611 003625 7102 00 010 915 TRA BRT1le3 * GO TO oMBRT103 ke 
i 000612 916 WRPAQK EQU * | «@ 
0N0612 000002 2202 03 000 917 LDXO « TWRAP + DU TURN ON THE WRAPUP FLAG 00000020 é 
000613 “600017 2403 00 000 #18 ORSXO eSTATE®9PeSSA SOOT 0 
000614 006204 4716 07 000 919 LDP P.PSH*SDePSHeDL 
0N0615 001761 4716 07 000 #920 LDP PePSHoeCTYP ODL 
0N0616 100030 2373 00 000 9,1 LDAQ PH. APs oP—PSH /* RESET ASRe PSR 
ON0617 Ll?’?3?7? 3752 07 O00 922 £4xANA B01 77377eDL #£&$ASR TS EMPTY OO 
000620 600214 7573 00 000 #973 STAQ eSTMPAs oP eSSA 6z 
ON0671 600214 0 974 LDAS eST 99h e 
0N0622 600214 7717 00 000 925 LOPS eSTMPAs «PeSSA 
O0N0623 000642 1706 00 O10 976 °° &LDNSA  WRPDAR 7® RESET DATA STACK POINTER 
ON0624 100014 2373 00 000 9°97 LDAQ PH.SS9ePePSH | 
090675 000100 0352 03 000 978 ADLA  64eDU.  £/*® RESET SSR TO MAKE FRAME 2 2 ~~ 
0N0626 000400 1362 07 000 9979 sBLO 64%49DL AT BOTTOM OF SS SEGMENT : " 
ON0677 600214 7573 00 000 930 STAG eOTMPAs OP a QO zz 
090630 600214 7737 00 O00 931 LOSS oSTMPA9 oP eSSA 
COS ST 892 COST CMB DRS 8 SUAVE gg 
0N0631 000000713400 000 VED 18/s09/71391/191/091/096/Me 
ON0632 O0O0D0000IT7TS OOO} ......®©)©WFQD  L/09970s8/70tT7eNelJe0e2/092/0el2/.DR3S 
0N0633 006063 4706 07 000 933 LOP P.RMSsSDeRMS9DL /* RESET PROCESSOR NO. 

0 34 OOO0U [3 00 D000 oh So +P oRE _" 
genes 000003 3752 07 000 935 ANA 3eDL s@ 
0636 000000 6272 05 000 936 FAX PNeeAL me ita as a, ta est eee ery 

000637 937 eCALL eMFALT#8 /* S/S UNDER FLOW FAULT 2 
TENT AVE WON re eee ee ea oe a 

090637 000003 6306 04 642 EPPRO *4#39$ | M 

ols 640 UJOOYU () ere VO0O Rp eC RCAL 9 oe r ol 
0N0641 000065 000010 000 Ade ee « ® 

ara : 1B 8 

000642 000000 000000 000 938 WRPNDAR FeRE | L 

NOGAs GCOOOOO0TT201 "000. ee a ea ee a ee eR Ree ee a eg 


i a i ee Ce el mh a a IRN RN EN 


02? 12"27-79 09.322 H6600572057 GCOS IV 4VX DISPATCHER 791219DISP PAGE 35 


FNTRY I 9 PAY WRAP-UP 


090645 000000001770 000 


: x 
0 
0? 12727779 09.322 H669047-057 GCOS IV 4VX DISPATCHER 791219D1rSP PAGE 36 _ 
FNTRY 20 SPECIFIC EVENT WAIT - ) 
941 * | 3 
942 * THTS ENTRY IS CALLED BY MACRO IN eMDISp iat 
943 * TO PUT THE PROCESS IN SPECIFIC EVENT WAIT STATUS é 
944 * PFC] VEN D N ROM COMMON EVENT O VAG 
945 * ENABLE SO PS.sENB BIT IN PST IS NOT CHANGED BY THIS CALL 
946 % PROCESS MAY DISPA > N CCURE OR of 
947 * COMMON ENARLE REQUEST COME. AT THAT ty HIGHER EVENT 
948 * SUB PROCESS MAY OR MAY NOT TAKE CONTROL ee ee ee 
949 * Ly 
950 * PRECAL X2 SPECIFY EVENT Os MODULE GATE OPEN 9 
| 951 * 1 = SSAPAGE BECOME FREE 
952 * SSA LOADING COMPLETE 7 
953 \% PST» DSP MUST BE SHUT 
954 % GTM MAY B 
955 * ly 
eS AMOOOL “SSG KXRQE. SET 2 0 00 Ne gene a gt 
000000 957 XBACK SET 0 
000000 958 XPST SET fe) ae 
000001 959 XQCBR SET 1 | 
aa 000646 960 FVTWT EQU OS 
000646 006136 4746 07 000 96) LDP PePSTeSDePSTeDL = 
00647 006042 4736 Of 000 962 LDP BS PRO*SDePROD DC Re ge 
090650 003713 7012 00 010 963 TSX CKEVTXsCKEVT *CHECK IF ANY EVENT PAYABLE “@ 
090651 000672 7102 00 010 944 TRA ETO OT eas. . Meee a Pee aU ENE a Ons r are 
00652 000674 2202 12 010 945 LDX XPST»sEVLST eXROE 
090683 400000 2403 16 000 966 ORSX XPSTeeKPXePePST~— ee 
| 967 *SHOW WE WAIT FOR SPECIFIC EvENT a 
0N0654 0006/74 7él2 12 010 9648 LXL XQCBaEV a XRG % QCBB ADDR RELATIV D DePRG | 82 
ON0655 300037 7203 11 000 969 LXL XBACK »De PRG eXQCB ePePRO 2z@ 
ON0656 300037 4403 16 000 970 SXL. Sd XBACK eDePROWMKPX9PePRO gg 
0N0657 300037 7413 16 000 971 STX XQCB eDePROKPXsPePRO 
090660 300037 7463 10 000 972 —  STX KPXeDePRQ2XBACK9PePRO 0 —"e 
000661 300037 4463 11 000 973 — §XL KPX eDePRQ»XQCBePePRO 
aa SO0Ebe” OTe EYIWEE FOU <a en ee eS oe 
| 000662 975 OPEN. PST | oe | 2@ 
66 O00000 4 oete 976 AX KRQE «+ XRQ : i e OPEN ¥ f 00 Ke 
ON0644 000667 6012 00 O10 977 TNZ EVWL 61 
ON0645  O0602Z7T 4726 UT 000 978 LDP PeGTMeSDe GTM ODL a @ 
000666 979 OPENe GTM ‘i 
ee ee eo Oe ae WW COCCI ne heer ge oe eye ee ee eg ee ge 
000667 002422 7022 00 O10 ~~ 9281 TSX DACNXsDACN *TAKE THE PROCESS OUT OF EXEC a® 
OOO TO©)UCmRD”~™”””””””””:COPEEN® OS gy 
000671 001173 7102 00 010 983 TRA MATN | 7 ee 
700672 ~~) 984 EVTWTD EQU % :® 
0N0672 003255 7012 00 O10 9A5 TSX PUTPRX »sPUTPRG *PUT INTO DISP QUEUE ma 
ON0673 000662 7102 00 O10 ORG © TRA EVTWTE Qf 
000674 987 FVLST EQU * . 
ON0674 010000 777745 O00 988 Zev Eee eee 
000675 020000 777743 000 989 ZERO PSeSSAsDeSSAPH+1@DePRO 
090676 004000 777747 000 990 ZERO PS.S10eDeS 10+ lL =DePRO ee dee 58 


s 
vp ol 
° @ 


@ 


1 


as Rs SS Aa 
@: | | °@ 
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8S 
ENTRY 21 ENABLE NEW PROCESS s@ 
992 * | ss 
993 % THIS ENTRY PUT A NEw PROCESS INTO DISpATCHER QUEUE TD 
994 * AND IF THERE ARE PRIORITY OPTIONs SET PDP ENTRY TO _ 
995 * RO IORITY ° 2 
996 * | m 
a 000004 997 XORJ SET 4 - 
000001 998 P.ePpP SET Pl 3 és 
—————————900677-——_ 995 ENB EGU ss) ABLE TT IFTHERE-ARE-NO-PRIORITY—— ov @ 
1000 *CONTROL OPTION er 
Tool : . 
1002 : *BE MODIFIED TO ASSIGN PRIORITY : « @ 
00677 600214 2343 00 000 1003 SZN oSTMPAe sPe SSP ¥IF A=NONZEROs PRIORITY CHANG 66 
O0N0700 003524 6012 00 010 1004 X.ENRP TNZ EXTTO *#REQUESTs SO DENY IT a 
O0N0701 006036 4716 07 000 1005 LDP P.ePDPeSDePDP»DL 1 @ 
ON0702 100000 2353 14 000 1006 LDA oXOBJePePDP /* RESET PpP ENTRY im 
ON0703  OO0OT12 3752 00 O10 Jon? ANA ENBPDP ee ee ee 
0N0704 000713 2752 00 010 1008 ORA ENBPNW | | «® 
090705. 100000 7553 14 000 1009 £4STA sXOBJePePDP a 
O0N0706 OCO00000 0112 07 O00 1010 X.ENFW NOP 2DL /* IF PRIORITY OPTION TRA 7 ee 
ON07TOT O00000 6362 14 000 i011  4-AQ  *XOBJ OBJECT PROCESS KPX == @ 
0N0N710 770002 2762 07 O00 1012 ORO =0770002 sDL *URGENCY AND ENABLE CODE 2 
TTT mms Sd TAT S URGENCY YS DUMMY SOC 
On0711 000225 7102 00 O10 1014 TRA ENB | | 
ONOT12 774260 776377 000 1015 ENBPpP ZERO  <1-ZINTRP@ZEXCOD=ZBPRIO=ZIOURCe=I-ZEXCOD 


000713 000040 000000 000 1016 ENBPNW ZERO ZIOWEN 


erent ninnnneennsenennntitreternnentettitnrtie tr Att ttt retentive tse nine thrush ivntnntenetrnwitennsenntnnntAten Antennae A rt A te ttre annem 


terete niente tnt tents rer eeneterfetrttrtenneerentenrneerntrnntuteervntnnnnnnsvsnisttrsnnttttunnternnnentnaanenepeesensasnesensnsensshssneniunnntennee ernest wetseeneesnrersmenenesene nr nttnerrrentnennnetennrsmnenantt tsetse tins annndtsntn ea 


29 
Sg a ek a Se ee Nae tee ce ert tea ce Cs a ele na ete ete, ee ce ep Me gee re Oe ee ee oe oe a ee ee 8 ie . 
12487 02 12727779 09,322 H6600J7.057 GCOS IV 4VX DISPATCHER 791219D1SP PAGE 38 = 
FNTRY 22 CHANGE PRIORITY 
1018 * 
1019 * THTS ENTRY POINT CHANGES PRIORITY. IF A/B PRIORITY ON CONFI ain: 
1020 * _ 


O00714 003524 710200 OL0. 167! @EPJTi TRA  -EX¥TO” ee ne nee ee gg 


‘—eeetremrverttnnrtererantnameaenamanssiseenananasusteeenanusininnamtenat AtsytinintnetAtntAnt eT ee ssatnnineettnitinrnmnierestetnttrtneettee sn ennasnnpstt tern ne tnt nether tS sient tn i NA 
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02 12-27-79 09.322 H6600N7.057 Gcos IV 4VX DISPATCHER 791219DI1SP PAGE 39 — 
Be a ga ee a ee ee ee et 
EP#23.5. SUBeFDISP QUEUE CONTROL ~@ 
9S 
1023 * SUBD0280 - 
1024 * CALLING SEQUENCE TO ENABLE SUB=DISPATCH SUBB0Z90 vs 
1025 * AU = KPX — §$UBD0300 —_— 
1026 * L = QO Lt 
LOQ?7 *. CALLING SEQUENCE TO DISABLE QUEUE SUBD0320 
1028 * AR = 0 : 
1029 x X6 = KPX SUBD0340 
1030 * 
| 000715 1031 S$pac NULL SUBD0360 a 
ON0715 006042 4736 032 D ePRO*SDe ’ 
| 000716 1033 e SHUT DeGATE*lLasPePRQ SHUT GATE ON CONTROL TABLE SUBDO380 
ON0771 OO0000 2232 03 000 1034 #JDX3  £#OehU XS ITS SEARCH INDEX ©  SUBDO390.— 
0N0722 600214 2353 00 000 1035 LDA eSTMPAssPeSSA | SUBD0400 a 
000723 000767 6002 00 010 1036 TZF 2DOCE «  REQU  DYSAE UBDO4I0 
090724 300024 2343 13 000 1037 SpaCcnM S$2ZN DeSOPT +3 ePePRQ SUBDO0420 ee 
000725 060763 6012 00 O10 1038 NZ DA ITRY OCCUPTED UBDU430 ena 
000726 300024 7553 13 000 1039 STA De SQPT 93 9P. PRQ FOUND neers STORE NEW _ENTRY SUBD0440 
000727 3000 2213 00 000 1040 LOX] De SQUEs ePePRG RVD UBDO450 a 
090730 300025 2223 11 O00 1041 LNX2 DeaSQPT+le 1 +PePRO x2 = ay IN LAST ENTRY SUBD0460 , 
ON0731 300025 7423 13 000 1042 STX? DeSQPT+Le3sPePRQ MAKE : ) 
ON0732 300025 7433 11 000 1043 STX3 DeSOPT+lelePePRO AND LAST ONE EOL TO NEW SUBDO0480 . 
00073 OO 7 Q 6 OOO 044 AOS De SQUE 8 oh a PRG ALD ) # KFKO ; SUE U TAD V4G 90 
| 000734 1045 e OPEN DeGATE=1LeePePRQ SUBD0500 
090736 006036 4716 0 O00 1046 OP P.PDP*SDePDP oD AECK PRIORITY VALU OR PRO z ON UBDOSTO ae 
ON0737 700270 2233 00 O00 1047 LDX3 eCRMKPeePeCR GREATER THAN MAXIMUM Malas 2UBD0520 
ONO740 100001 234 000 =~=1048 SZN 1939PePDP WATCH R SUB@DISPA UBD0S30 
090741 003527 6012 00 O10 1049 TNZ EXtTl + EXITs _THES IS NOT THE FIRST REQUEST SUBDO0540 
ONO 7&2 OO 1 8 UOO 0) Xx 20 9 WU RRR KK Y VALU 6). UBL - “OUB LY ) 
0N0743 100001 7423 13 000 1051 STX2 1o3sPePDP PUT IT IN sCRMKp+#l ENTRY SUBDO0560 
0 44 1052 SHUT « DSP . 
On0745 000001 6232 13 O00 1053 EAX3 143 MUST ENTER KPX=SMAX4l IN DISP®*R QUEUE: SUBD0580 
0N0746 300037 7243 00 000 1054 LXL4& DePROe>s y5% , 
000747 000754 6002 00 O10 = 1055 TZE SDOCB « NO ENTRY IN DISP#&R QUEUE | SUBD0600 . 
OF 50 ojexeltre oy. O00 056 DOCA MX O94ePePDP COMPAR Y PRYOR Y y OTHER SUBDOUSTCU " " 
ON0751 000754 6046 00 O10 1057 TMOZ SDNCB © FOUND POSITION W/ HIGHER PRIORITY 5UBD0620 
ONOT52 000 00 058 LXL4 De PRO 94 ePePRG ADV TO NEX Y QUEU SUBD0630 oe aks 
0N0753 000750 6012 00 010 1059 — TNZ SDACA « CONTINUE IF MORE IN QUEUE SUBD0640 mA 
ONOTS4 300037 2223 14 000 1960 SDOQCR LDX2 DePRGe4ePePRQ LINK OUR SUB=-DISP ENTRY = _—C SFUBOVGS0-————————,_ @ 
000755 300037 4433 12 000 1061 SXL3 DePRQ92ePePROQ INTO QUEUE W/ FIXED PRIORITY vandals bi 
ONO TRE O60 Jers 06 De PRO?4ePePRG SUBDOS —— 
nue 300037 4443 13 000 1063 SXL4 DePROs3ePePRO SUBD0680 
0760 300037 7423 13 O00 koeq = = STxe > DePRGsasRePRU SS ae 
000761. 1045 OPENe» DSP . sebidas alah 
ONOT42 00: 3 00 O10 1066 TRA EXT RETURN WITH NEW ENTRY MAD JBDO ——— 
ON0763 000002 0232 03 000 1947 SNACC ADLX3 29hU ADV TO NEXT ENTRY SUBD0720 ‘i 
O00 7A4 OO e O00 68 MBX eDU —“SUBDO ' i aaa 
000765 000724 Aer 00 010 10469 TNC SDACD | SUBD0740 a | 
ON0766 O00TT4S 02 00 O10 1070 TRA DO VIA XITs TOO MANY R UBDO750 : 
ONO747 300024 1063 13 000 1071 SDQCF CMPX6 DeSQPT+3sPePRQ DISABLE REQUEST» CHECK FOR MATCH SUBDO760 5 
090770 000777 6002 00 O10 1072 ° &«4.-™7F ®©8SDOCG © FOUND MATCH 2 —S$UBD0770___————,, @ 
S 
vO 
| ; -@ 
°@ 
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gs 
FP#23.%s SUBYDISP QUEUE CONTROL s® 
. ; 9S 
ON0771 000002 0232 03 000 1073 ANLX3 2enU SUBDO780 
ON0772  O00012 1032 03 000 1074 CMPX3. 10e0DU SUBDOTIO ect 
090773 000767 6022 00 O10 1075 TNC SDACE $UBD0800 st 
) ole 4 1076 SDOCF OPE DeG } , cn 
000776 003524 7102 00 010 1077 TRA EX1TO DENIAL EXIT» NO SUCH PROCESS SUBD0820 ~@ 
ON0777 300024 4503 13 000 1078 SpacG STZ DeSGPTe3ePePRGQ FOUND ENTRY» CLEAR IT... 66SUBDUS300UUUUUUUU GY 
0N1000 300025 2213 13 000 1079 LOX1 DsSOrelaaaes PRQ MOVE ITS PTR ue Ca SERV?D" SUBD0840 a 
001001 300017 7413 00 000 1080 STX1 De SQU | 
0N1002 300025 1033 13 000 1081 CMPX3s_—De SOPTel od sPe PRQ MUST UNL INK aoe ats SUBD0860 
ON1003 OO1OIO 6002 00 O10 1082 TZE DACH r/ AE ONIY ONE IN Vs TBDVE TO 
ONL004 000000 2222 03 000 1083 LOX2 OspuU SUBD0880 
ON1L005 3000 a 000 084 SpQCcJ  CMPX De SOPT+1 a2 ePePRO OOK FOR ENTRY PNT? 0 TF ON UBDUS90 
001006 001033 6012 00 O10 1085) TNZ SDACI 5UBD0900 
01007 300025 7413 12 000 1086 STX1 DeSOPTelecePePRQ OUND ¢ LINK YT AROUND TR ONE UBDOITIO 
ON1010 300025 4503 13 000 1087 SPQCH STZ DeSQPT#193sPePRO AND CLEAR THIS ONE'S PTR SUBD0920 ie 
OM10t1 00017 ; ole 000 088 L XL Ye SQUEs s3Pe PRO REDU OUN N JEDUY30 
ON1012 000001 1222 03 O00 1089 SBLX2 1 epU | SUBD0940 
091013 300017 4423 00 000 1090 SXL2 De SQUE99Pe | 7 3 pommmaaate 
001014 1091 eOPEN DeGATE@1LosPePRQ SUBD0960 
ON1016 000000 6222 12 000 1092 FAX2 0? SUBDOITO 
ON1017 003527 6012 00 O10 1093 TNZ EXITL RETURN IF STILL AN ENTRY IN THE TABLE SUBD0980 ie 
0910720 006036 4716 OF O00 1094 LDP Pe PDP eS De PDP SDL es SUBD 
001021 1095 SHUT e DSP SUBD0990 
ON1022 700270 2223 00 000 1096 LDX2 eCRMKPeePeCR MUST REMOVE SUB=nISP FROM DISP=QUEUE | SUBDIO00Q 
091023 000001 6222 12 000 1097 FAX2 192 KPX = MAXIMUM + 1 SUBDILOLO 
091024 100000 4503 12 000 1098 STZ Oe2ePePDP + CLEAR PRIORITY VALUE FROM TABLE SUBDIOI5 = .@ 
001025 300037 2233 12 000 1099 LDX3 der a PRQ SUBD1020 he 
ON1026 OOO 4 2 OO0 100 LXL4 DePROQeZaPerKG VK AKOUND bf NIKKY UBUv4 Wau az 
01027 300037 7433 14 000 1101 STX3 DePROQ24sPePRG SUBD1040 z®@ 
091030 300037 4443 13 000 1i6d2 — §8XL4  DePRQedePePRQ © OOOO QUYBDTOSQ 0 —E 
| 001031 1103 OPENe DSP SUBD1060 ez 
091032 003527 7102 00 O10 1104 ° TRA EXITl RETURN» OK} ..}©)©”? SUBDYOTQ ye & 
01033 000002 0222 03 000 1105 Spac1r ADLX2 29DU ADV TO NEXT ENTRY SUBD1080 - 
O0N1034 C000TS? 1022 03 000 l106 CMPX2 10 aDU SUBDTUIN 22 
091035 001005 6022 00 010 1107 TNC SDACU SUBD1100 i ) 


091036 O007TT4 Je 00 O10 108 TRA SDOCF DENTAL RETURNe NO SUCH ENTRY UBDITTO ae 


61 
a® 


Zh 
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; 8s 
FNTRY 38 DUMMY a 
9S 
1110 * ss 
1111 % DUMMY ENTRY POINT os ® 


1112 % | ee 
SSS SS 1 es Tagptae eee ge ae eee ed eS ee | ee ee et ee ce ee 


001037 1114 ZoP 8 *UNDIFINED ENTRy POINT CALLED 


wo 
iy 


= 
N 


Be N MO TF HM O© KR 
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8S 
FPw24. START ANY IDLE PROC!?R a] 
L116 % CALLED BY PARENT PROCESS WHEN MAKING A FIRST SUBD3670 . 
1117 * SUR=DISPATCH QUEUE RY ee) 
1118 #* SUBD3690 €s 
—SOOEOSOCUCLNNO FIDLP NUL STI TT 
091040 000001 0112 07 000 1170 1eCLF9 NOP MPENB@MPBASE*DL (ORs TSX1 MPENB IF MULTI*PROC) SUBD3710 c®@ 
091041 003524 7102 00 O10 Ital TRA EXITO ‘e 


e@ #9- 
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8s 8g 
@ . FND OF SOFTWARE INTERRUPT <@ 
9¢ 9S 
gg 1123 * Ss 
@.. 1124 # THIS ROUTINE TERMINATES SOFTWARE INTERRUPT PROCFSSING AND | 1 
és 1125 # RFSTORE INTERRUPTED PROCESS STATUS ss 
zg L126 * zs 
®@ 000000 1127 FLX SET 0 ‘6 
08 000001 1128 Ely SET 1 0s 
6Y 000000 1129 P.PSH SET PO 6y 
®» 000001 1130 PaNDS SET Pl ap 
ty 000000 1131 PePDP SET PO ay 
: 000000 1132 PePID SET PO ov 
®@: 001042 1133 ENDLVL EQU x oo @ 
vy 001042 1134 ENDEVT EQU % vy 
€ 001042 1135 SHUT e DSP ey 
e. 001043 1136 ENCCFN EQU * "» 
\v 001043 002424 7022 00 010 1137 TSX DACNX sDACND *TAKE OUT OF FXEC FIRST . 
y ON1044 600017 2353 00 1138 LDA e STATES 8Pe | 
@ « 0910465 000200 3152 07 O00 1139 CANA eTALRMoDL *IF ALARM SET RESET IT | 
se 091046. 001050 6002 00 010 1140 TZE ELI % et 
te 091047 003225 7052 00 O10 1141 TSX RETLRXsRETLRM *RESET ALARM 
@ : a 001050 1142 ELI EQU % 
se 001050 006036 4706 07 O00 1143 LOP P.PDP»SDePDP »DL 
ve OO105) 6 14 ® are . 
@: 01052 003374 3752 00 010 1145 ANA EXCMSK RESET EXECUTION LEVEL & ITS TALLY DISPOPDL 
ze 091053 000000 7553 16 000 1146 oKPXoPe 
Le ON1054 006204 4706 07 O00 1147 LDP P.PSHsSDePSH DL 
@ «: ON1065 000026 6717 00 000 1148 LON P.DDS» 90P.e GMF 
6z 01056 001761 4716 07 O00 1149 LDP P.eDDSeeCTYPeDL _*CHANGE TYPE e 
gz VUOQOO00 150 XFRTR 0 RU VERY FOTN x az 
@. 000001 1151 XTMP SET 1 a) 
92 ON1057 600031 7203 00 000 1152 LX XPTReeSDLVL o9P POP UP POTNTER OF D R 02 
Gz 001060 1153 FL.2 FQU * ; 
641040 000 3602 03 O00 1154 ANX XPTR sDDSMSK 9 DU ARE YNDTCATOR 
ez 001061 177777 2353 10 O00 1155 LDA DeDLVLeXPTRePeDDS /* GET BASE OF THIS FRAME. i 
zz 42 6 156 a) 
@. soi0es 001060 6042 00 O10 1157 TMI EL2 de eSSA SAVE ENTRY SKIP 
oz 091064 600031 7553 00 000 1158 STA 25D DLV 
61 091065 100000 2353 10 000 1159 LDA BeSSRIXPTR OPS DpS i RECOVER SSR 
@. 001066 1 6 1160 LDQ eS 
e ON1047 006024 4706 07 000 1161 LDP Pe P1D9SB«PID4DL 
Si a LO7C ore 8 exele 16 oy. MP9 o PN 9 I ) TRS Fe N YY.) NTR Y PU TT F te 
@: 091071 000002 7573 11 O00 1163 STAQ 2 sXTMP »PsPID *RESTORE SAVED SSR OF PUSHED LEVEL 
vi On10T2 16 99 Pe 
et 001073 000100. 1007 00 O00 1165 MLR (lie (lh) 
@: 0N1074 000002 0000 50 000 1166 ADSCS De TEMP 9 940 eP0 D MP DATA MPR6EOTO 
rm 0n1075 600204 0000 - 000 1167 ADSC9 ~—s- eo STEMP 10940 oP «SSA TO «STEMP AREA IMPR6080 7 
oL 1076 elelorae ojere 68 oy: DeSDAPAP IT Mer eV R OVER = 5° KCK CONTRO = a a 
@ : ON1077 600012 7553 00 oe 1169 STA SSA 99PeSSA | 
2 0n1100 440 6352 Ol 1170 FAA =05 ; 
t 001101 001101 6002 00 Bi 1171 TZE % WHY ‘ 
@ ; OAlin2 000002 2 I172 ALS 2 ‘ @ 


02 12827-79 09.322 H660037.057 GCOS IV. 4VX DISPATCHER 7T91219DISP PAGE 44 - 
ee fe as UN Ss SS ST 
9S 
01103 000140 1007 40 000 1173 MLR (Lele (lel) AND MOVE ss 
001104 000021 0000 01 000 1174 ADSC9 De SSA*199AU SPO 


ON1105 600340 0000 01 000 1175 


ADSC9 = SSANK WAU PeSSA : 


001106 100016 2353 10 000 1176 LDA DeStK - 
ON1107 600216 7553 00 000 1477 STA SSTKSP+sPeSSA. <@ 
091110 100015 2353 10 000 1178 LDA DeELVLeXPTRePeDDS Gg 
ON1111 600043 7553 00 000 1179 STA eSELVL 9 9PeSSA 
ON1112 100017 2353 10 000 1480 LDA DeSVETeXPTRePeDDS 0 PROT 
001113 600221 7553 00 000 1181 STA eSVFLT99PeSSA IMPR6150 ne 
OALI14 100014 2353 10000 11a2 LDA DeSTAT®XPTR*9PODDS 8 
000000 1183 XSTT SET 0 oo @ 
ON}115 000000 6202 01 000 1184. FAX XSTT 9 eAU oe 
ON1116 600017 3403 00 O00 1185} ANSX XSTT ee STATES 9Pe SSA RESET eSTATE UPPER : ss 
ON1117 600017 2363 00 O00 1186 Loa o STATE OP e * "EVENT WAITING 8 es 
091170 003704 3762 00 O10 1187 ANO SeSTAT FOR TERMINATED INTERRUPT PROCESSING ie 
— ONLIAL 600017 156 oie D000 1188 rq ae STR sore : R= ix N Aye D OR = 6s 
1189 *ITYEFVT TRA YaFEVT /* TRACE END OF INTERRUPT «@ 
1190 DELETED | Be 
NN1122 300000 3752 07 COO 1391 ANA sTRDBK+eTWAKE*DL 8 *IF SAVED PROCESS WAITING SPECIFIC - 
001123 001162 6002 00 O10 1192 TZE FDL EVENT» CHECK THEM AGAINe Se 
| 1193 *ADD eTXXXX IF ANY AMDITIONAL EVENT | se 
ON1124 200000 3152 OF O00 1194 CANA »TRDBKeD RGEROAD EVENT (A 7/0 COMPLE | * 
0N1125 001151 6002 00 010 1195 TZF EL30 *#NQ «® 
| ~ 001126 #41196 £SHUT. QGT ———"FCHECK I/O REQUEST ©... ag 
N1127 600117 2213 00 000 1197 LDX SME ssiSROST eT SSA *GEPR IS SAME AS UNCOMPLETED 1/0 
~ OA1130 010000 3012 03 000 1198 CANX XTMP 9 eRGE 
ON}13] 001134 6012 00 010 1199 TNZ EL10 éz 
~~ ON1132 ZOOLEO 2213 00 0007 12007 LD KOR TMP 9 @SROCT 9 9Pe55A RANY I/O OUTSTANDS 
001133 001147 6002 00 010 1201 TZE EL20 *NOe GEROAD EVENT OCCURED z® 
001134 1202 FL1O  EQU % | a ae 
001134 1203 OPENe QGT *GEROAD NOT BROKENe DON'T DISPATCH 
091135 600117 2363 00 000 1204 Loa eSRQST99P.e 7* CHECK IF ANY CANCEL RO K 
091136 000100 3762 07 O00 1205 ANQ eRCRDeDL REQUEST OUTSTANDS 2 
ONTTaT OO1145 e012 00 O10 lan@ NZL 
0911460 600017 2553 00 000 1707 — ORSA e STATE 2 9Pe SSA 
0f1141 000000 Ol12 07 O00 1708 X.EL10 NOP 9DL ® 
0N1142 003713 7012 00 010 1709 TSX CKEVTXeCKEVT 
Oni143s 001162 7102 00 O10 12710. TRA EDI ‘¥EVENT PAYABLE. SO PUT TT TN QUEUC 
091144 001165 7102 00 010 1211 TRA ED9 
j T14 I?te FLl EQU ¥ 
091145 600117 6563 00 O00 1213 ERSQ eSROST9¢PeSSA /* RESET CANCEL REQUEST 
Ohl1l46 OOl1162 7102 00 010 1714 &4.|TRA EDL © IN QUEU 
001147 1215 FL20 FQU * | | 
Oo —— OOLL47  Lale “OPEN. OGT~—~—~CO”””COOPEEN GATE AND PUT OTT TN QUEUE 
091150 001162 7102 00 O10 1217 | TRA EDL | iH 


ON1151 100000 3152 a 000 1219 CANA e TWAKE #DL *xIF NOT ENABLE WAIT 9. THEN | a) 
OM1152 OO1152 6002 101270 TZE ¥ T ° GS 
091153 600017 2553 fe 000 1271 ORSA oSTATEs oP eSSA *YES. SO PUT - IN DISPATCH QUEUE | : 
071154 001162 7102 00 010 1272 TRA EDI »@ 


oo ® 
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8g 
FND OF DISPATCH | z 
9S 
1274 * Ss 
1225 % THIS ROUTINE PROCESSES AFTER ROADBLOCK OR RELINQUISH Te 
12726 # ENDSPL = PROCESS HAS NO EXPLICT WAITING EVENT | . 
lo??? * Y VENT IS WAITING? PU IN TA ¢ = 
1228 % SPeenree ATEUE ~®@ 
1229 * ENNDSP5 ~ PROCESS HAS SOME WAITING EVENT vs 
1230 * IT IS NOT REQUIRED TO PUT IN QUEUE « IF NO * 
, 1231"  — SYSTEM EVENT WAITING ov @ 
000000 1232 PePDP SET PO i 
OE, eee OL LOD eo ENDGPL EQUUS eg re en ee ea eg ee he Tg Rg Pe eae ee gh 
001155 1234 OPENe QGT *OPEN I/O QUEUE | « @ 
001156 1235 ED2 EQU * ¥ENTRY FROM EPI6 vy 
001156 003713 7012 00 010 1236 TSX CKEVTX eCKEVT *CHECK IF ANY SYSTEM EVENT PAYABLE 
ON1157 001162 7102 00 010 1237 TRA ED) #YES SOME THING eee 
0N1160 000000 0112 07 O00 1238 TPED NOP 2DL *IF ANY PRIORITY OPTION RESET PDP CODE 4 
01141 003360 5542 O10 1239 TCI PPTATL oF FDIR 8 OF DIPATCH QUEU ere 
1240 | *IF 1/0 COMP BIT 1S ONs THERE IS NO «@ 
1241 *NEED ide) PUT AT TAIL. BUT FOR BE 
1242 *COMPATIBILITYe I/0 COMP BIT WAS USED me 
1243 ¥TO DELAY EXECUTION SO MUCH ms ) 
001162 1244 FDI FOU * ae 
———— ee OL ee. eee 2 oORGbee =atol Ron ace ter eg a ee ne ee ee 
001163 1246 ED3 EQU * — ENTRY FROM EP11 =@ 
091143 003255 7012 00 O10 12947  &4.115SX  PUTPRXePUTPROQ  *PUT PROCESS INTO QUEUES 
001164 1248 FD4 FQU % xENTRY FROM EP11 
001164 1249 OPENe PST ® 
001165 1250 FD9 EQU * 62 
001165 1251 OPENs DSP OPEN GATE gz 
001166 001173 7102 00 010 1252 TRA MAIN *GO TO MAIN DISPATCH z®@ 
ee OOLTeY . 6 eS ENDSPS FOU = © (2 ee ee Soe ge ge oe ay 
001167 000000 0112 07 O00 1254 X.FD5 NOP 9DL *IF OPTIONe SET ZIOWEN BIT 
001170 OO3713 7012 00 O10 12955 SX  CKEVTX+CKEVT  *IF ANY SYSTEM EVENT 000 @ 
OM1171 001162 7102 00 O10 12756 TRA ED1 ay 
ERMIUEy REMUS PSeroer vem eee ge ee 
I2 
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AL RM Cin FC ik ROUTINE 


1259 * gs 
"1960 % ~~~)~—)—)hoTEST ALRM CLOCK AND ENABLE PROCESS WHOSE ALRM HAS RUNG  ————™—C.... 5 
1761 * FOR CONTROLAND NON=CONTROL PROCESSOR Es 
1262 * SCU CLOCK I T 
1263 * 
1764 INHTB ON 
000001 1265 P.PIN SET Pl 
| 001173 1266 MATN EQU * 
091173 006024 4716 07 O00 1267 VDCN&V LDP Pe See PTS 
“TIGRE 100004 7727 00 O00 1248 LOWS eaPNPOP#4¢ oP D RRKO OR PROC LIN V PUP W 
0n1175 100005 7727 00 O00 1269 LOWS * DNPOP Gee Ps PID 
1270. ; INHTB SAVE sOFF 
001176 006130 4774 07 O00 1271 \VOVHIV LDP PecReSDeCReDL 
001177 006145 4764 07 O00 1272 VOVH2V LDP P.SSAsSDeSSAeDL 
091200 000000 0110 O07 O00 1273 NOP eDL *OFF INHIB BY NON*VU OP ie 
~~ 0N1201 000000 0110 07 O00 1774 NOP aDL 
1275 INHIB RESTORE 
. 001202 1276 ALMCK EQU * gt 
091202 001310 2142 00 O10 12777 SZNC ALMGAT *ANY PROCESSOR ALREADY WORKING ye 
001203 001403 6002 00 O10 1278 | T2E SELECT 22002 RVES 
001204 006063 4706 07 OOO 1279 VALMIV LDP P»RMS»*SDeRMSeDL *PREPARE FOR RSCR ae 
Onl20s  BN00s0 oIss 00: 00 iono —RSCR SEUCER ea eRMS EE SS 
1781 | 
O01 206 000004 7732 00 000 1782 LRL 4 gg 
091207 700106 7563 00 O00 129R3 STQ eCRDAT+299PeCR bell tll TOD ScU CLOCK 
091210 003453 3762 00 O10 12784 ANQ SLMASK ENCY FIEL 
—_ oni2it 001314 7562 00 010 1285 STO ALMTMP a CURRENT TIME IN TEMP TIL GATE SHUT 00000020 
~ ONL212 0061 4126 000 1786 LOP eKLeoDeKl 9 
001213 200175 0323 00 000 127R7 Lbac eKLLOGe sPeKL *IS HEALS NEEDED 
oni2i4 001255 6012 00 O10 i2as  . TN2. ALMCKS — MYES 
001215 1289 ALMCK1 EQU * 
ate 001215 1290 SHUT « LRM *SHUT LRM GAYE 
0N1216 001314 2362 00 O10 1291 LDO ALMTMP Now THAT GATE IS SHUT» MOVE CURRENT 00000020 es 
001217 O00 L2 62 00 010 292 Q AL MCR ROM Me TO FPERM OV00UNVN ZN 
001220 200002 7203 00 O00 1293 LXL OeLePTReePealRM re ENTRY 
N1221 O 6 294 E MCK ° 
001222 1295 ALMCKA EQU * 
ON1222 O0l3I2 2372 00 UlO 1296 LDAQ ALMCRT | — *LIMIT TIME OF CHECK — 
091223 001313 1152 00 O10 1297 CMPA ALMPST 
e 4 OU 0 5 ore opne oh; TT” LT MORE 
091225 200001 1113 00 000 1299 CWL LeFRSTesPeLRM 
O0N1226 00 0 ae 00 opae 00 NZ ALMCKS wie 
001227 1301 ALMCKB EQuU % 
00122 YOOU 63 U0 WOO 130 » KPXeLePT Re sPelL kW IR POIN RR me om K FO X 
091230 000001 3362 07 000 1303 LCQ 16DL 
OTT} exezere err: 00 000 T3 AST} ePIReePeLr OUN POWN TTRY 
001232 200004 2353 16 000 1305 LDA Le LRM eKPX sPeLRM *PULL URGENCY . 
001233 000100 3362 07 000 1306 CCO SO lUU sue re a et en Serge ee) i 
091234 200004 7563 16 000 1307 - STO LeLRMeKPXsPeLRM *CLEAR ENTRY TO ENABLE 
001235 000000 1062 03 000 1308 CMPX KPXeLeICOMsDU 
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8S 
ALRM CHECK ROUTINE c@ 
091236 001260 6002 00 010 1309 TZE ALMCK4 — o*YES 
001237 777777 1062 03 000 1310 CMPX KPXeLeSWAPsDU *¥IS IT SwAp ALRM a 
091240 001262 6002 00 O10 1311  TZE ALMCK5 *YES ae 
0N1241 OQ007; 2 0 000 1312 ANA URMASK oD KISOLA ORGENCY : 

; 001242 1313 ALMCK2 Eau # ~@ 
On1242 000014 7352 00 000 1314  #&#&ALS  %L@  ~ MAKE UP ENABLE WORD Gg 
091243 000001 2752 07 O00 1315 ORA leDL ev 
0N1244 OO1311 7552 00 O10 1316 ° #§STA  ALMENB i DY S05 0 Oe 
091245 001311 7462 00 010 1317 STX KPX »ALMENB | - 
091246 003376 TOl2 OO O 318 SX RTLRXs RM om: TALRM TASB. ae 

001247 1319 SHUTs PST  @ 
091250 001000 2352 07 000 1370 LDA PSeLRMsDL SET PST ENTRY TO SHOW 
001251 400000 2553 16 000 1321 ORSA sKPXoPePST #ALARM HAS RANG _ 

001252 1322 OPEN. PST 2 @ 

091253 001311 2362 00 O10 1323 LDQ ALMENB *THEN ENABLE IT ie 
001254 £1324 OPENe | i aan, 
001255 | 1325 ALMCK3 EQU | ge ® 

001255 002733 7032 00 O10 1376 TSX ENR ENABL #0 ENABLE] —— ee oe ae 
001256 1327 ZOPS *NO SUCH ENTRY 

0N1257 O01215 7102 00 010 1378 TRA ALWCRT THER NEXT ENTRY TO ERBBGE 2 
001260 1329 ALMCK4 FQU * Ge 

ON12K40 542001 6232 0 O00 1330 FAX We eMSCMa% + 1m¢ YTERCOM HANDLER : 

001261 001263 7102 00 O10 1331 TRA ALMCK6 

001262 1332 ALMCK5 EQU * | % 
ON1242 441005 6232 00 000 1333 FAX We eMPOP6*51245 *SWAP TROUBLE SHOOTER 

ae 001263 1334 ALMCK6 EQU * | 
091243 000000 6352 00 000 1335 EAA 0 
01244 003 O12 00 O10 336 % *POPG RSEND W ) GPOP 
091265 001271 7102 00 010 1337 TRA ALMCK7 *QUEUVE IS FULI. RETRUN 
ON1266 O00O0l 6262 00 000 1338 EAX KPXeePNPOP = = = = GET POP KPX 
091267 000077 2352 07 O00 1339 LDA 20779DL *AND HIS URGENCY ; 
001270 001242 7102 00 O10 1340  #4TRA  £ALMCKO ¥GO ENABLE HIM = GPOP 

wget 3 001271 1341 ALMCK7 EQU * 

OM] 7 OQUG06 O6 Vv YJOO 34 > } eaRM> QV eKMO 8 ‘ KEP V ex Y 

001272 900040 4133 00 000 1343 RSCR SCUCLK 9 9PeRMS *QUEUE IS FULL. 

091273 310000 0362 O07 O00 1344 7 ADLQ  LOQMEGRG oe 

091274 000004 7722 00 000 1345 QRL 4 *RESET ALRM FOR 100 MILLI SEc 

1275 = 2 4 346 fe) oP 

091276 200004 7563 16 000 1347 STO Le LRM AKPX Pe LRM *STORE IT IN TABLE 

ONL27 OH03376 O12 OO O10 348 X : RA 9 ni RIKEN K e : 

091300 001222 7102 00 O10 1349 © TRA ALMCKA 

ae == 01301 43> -ba50, MEMCKS FOU = «Se a ee 

091301 200001 1113 00 O00 1351 CWL LeFRSTesPeLRM 

091302 OOl2e7? 6012 0O O10 1352 © TNZ ALMCKB 0 
001303 1353 ALMCK9 EQU % | ‘ 

. 1354 IENe M | | 7 
091304 001312 2352 00 O10 1355 LOA ALMCRT *SET WE CHECKED TILL THIS TIME 
001305 OO1313 7552 00 O10 1356 STA ALMPST 
091306 001310 5542 00 010 1357 STC1 ALMGAT #OPEN PROCEDURE GATE ; 
091307 001403 7102 00 O10 1358 °&45}TRA SEVECT RETOUR 
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_ AL RM cHECK ROUTINE 

001310 777777777777 000 1359 ALMGAT DEC 71 
001311 1360 ALMFNB BSS 1 *ENABLE REQUEST WORD. 
001312 1361 ALMCRTEBSS 1 *CURRENT TIME es 

— «SPOT 3LS~©»)©)6©h 1 362 ALMPST BSS 1 COREA T CHECKED TIME 
001314 1343 ALMTMP BSS l TEMP HOME FOR CURRENT TIME 00000020 


Aen A nN 
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a a a a 
DISPATCHR WATT ROUTINE | | 
1365 * 
1366 * ROUTINE TO HOLD A PROCESSOR WHEN THERF IS NOTHING FOR IT TO DO Se ee 
1367 * THE PROCESSOR IS SENT INTO A pIS STATE 
1368 * 

. 001315 1369 WAIT  EQuU * 
091315 100001 7?27 00 000 1370 Lows ‘TeePePID LOAD WSR FOR PROCESSOR PROCESS —————SAO PVVCNV20-— ss... 
091316 001401 2262 00 O10 1371 LDX KPXeBYPAS /* CHECK IF ANY BYEPASSED 
001317 001435 6012 00 O10 1372 TNZ SLCT5 § DISPATCH 
091320 001377 4502 00 O10 1373. — §T2 LOPCK /* CLEAR LOOP CHECK CELL 

00132 1374 VSLC1V OPENe 7 

001322 1375 OPENe DSP 
071373 003536 7012 00 O10 1376 TSX ZeRSCR —¥GET INTERVAL TIME AND UPDATE TOD 
091324 700767 0553 17 000 1377 ASA eCROVHsPNePeCR *ACCONT FOR THIS TIME AS OVERHEAD Be 
091375 200060 4503 00 1378 STZ oKLIDI 9 ePeK * =RRUU 
091326 006031 4726 07 000 1379 LDP Pel. RMeSDeLRMeDL * % 
O01 ? OOO U0 JOO 380 : X ol ePIl Ke ePeLRl 1010 ‘ UB HMAV ALL PAM IY fea toa 3 
001330 001343 6002 00 O10 1381 TZF WATT1 *NOe SET TIMER TO MAX VALUE 
001331 200001 2363 00 000 13R2 LA LaFRST9 ePeLRW TEAR 0 WAR 
091332 000004 7362 00 000 1383 ALS 4 
001333 4 136 384 BLO eCR 99h e 
091334 001202 6042 00 010 1385 TMI ALMCK PTCH5330 | > 
ONT 33 0006 bo UO O00 B OL* 0 ONVER TTERVA y ROM 
0N1336 001750 5062 07 O00 1387 DIV 1000%DL *SECe UNIT TO 1/64 MILLI SEC. UNITS 
091337 000010 7362 00 000 1388 LS 
091340 000001 2762 03 000 1329 ORQ 1sNU *INSURE MINIMUM OF LMS 
ON1341 0035 39 X aL : 
0N1342 001344 7102 00 O10 1391 TRA WAIT2 

9 I 

001343 003532 7012 00 O10 1393 TSX ZsLDTMX *SET TIMER TO MAX | 

001344 1394 WAIT2 EOU % gz 
091344 007325 7102 00 O10 1395 IYIDLE TRA Ye IDLE *NOP IF TRACE OFF 
091345 000000 6352 17 000 1396 EAA oPN 
091346 616000 2752 07 000 1397 ORA DISeDL *PROCESSOR # AND DIS OP COSE 

| ONT 34 1396 ° OHU WA 7eCRUSP? oP eCR AUT DISP + BU av ehuseneiv lores : ae 

091353 300013 7553 17 000 1399 STA DeCPUsPNePePRO *BUT WHY | 
ON1354 700761 0543 00 000 1400 AOS *CRTWToePeCR RKCOUNT NO. OF TIP "PU p ore a 
0N1355 300036 0113 56 O00 1401 NOP DeDSPsIDesPePROQ *COUNT THIS CPU AS WAITING - 

| 001356 1402 OPEN. DSP ae ee 

1403 INHIB SAVEsOFF . ye 
Ae er eee rn Oe Fe Se a Ge Og 

a 1405 oo @ 

ON1357 0 U) 6160 QO O00 1406 DTSs RP RO Uk FA WR 8). VTER@= ds et 
1407 *RUPT OT croc WHEN JOB PUT IN QUEUE ap 
1408 | mm ) 

1409. INHTRB RESTOR rn 

A eek he 0 Clem ep ae 470 m - a 
001361 1411 SHUT DSP | ; © 

Oni 342 00036 O 000 L412 NOP INSP eDI ePePRG RCOUNT DOWN WAITING PROCESSORS ee 


091363 000001 3352 07 O00 1413 LCA leDL 


091364 300013 


DI SPATCHR WATT ROUTINE s@ 
. 9S 
001365 1415 OPEN. DSP 
ee Cee in ieNATG NUL ans er RON ge = 
091366 003536 7012 00 010 1417 TSX Z»RSCR 2 
001367 T0072 0 000 1418 ASA eCRIDT ®PNePeCR RACCUMULS? y - 
001370 200060 2343 00 000 1419 SZN eKLIDI 9 ePeKL *xANY INTERRUPT o ce ~@ 
ON1371 001376 6002 00 O10 1420 T2E WATTS IN og 
091372 200060 1353 00 000 1421 SBLA eKi IDI 9 sPeKL *COUNT TIME IN INTe HANDLWR be 
091373 700767 0553 17 O00 1472 ASA aCROVHePNePeCR =~ *ACCUMULATE AS OVER HEAD 000 w@ 
091374 000000 5312 00 000 1423 NEG i 
ON1375 TOO7T62 O 000 1424 ASA ~CRIDT PNP eCR FREDU 5 TEV TIP T-TOTRE z 
001376 1495 WAIT3 FQU * ov @ 
091376 001202 7102 00 O10 14796 TRA  ALMCK ~~ ~—s *GO_ LOOK FOR SOME INTO AMC 
616000 1427 \DTS BONL 616000 *DIS OP CONE FOR DeCPU a 
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SELECT A PROCESS TO PISPATCH <@ 
1429 * Ss 
1430 * SELECT A NFW PROCESS TO EXECUTE AFTER RELC+s ROADBLOCK®s TRO Ps 
1431 % OR ENTE Res ut PROCESS IS eee ED FROM A QUEUE OF di 
432 % ATTIN ATCR AT zs 
1433 * x Shieic “DISPATCHER TAKE OUT THE FIRST PROCESS ~@ 
1434 * % if ue 
1435 * THE DISPATCHER WILL START SUB=PROCESS. ( "GEPRs ARORTs SWAP 2 
1436 * COURTESY CALL) FOR THO APPEAR IN sSROST WORD O HE PRO ° et 
1437 * START OF SUB=PROCESS IS CHECKED BY EXECUTION LEVEL eSELVL a5 
TO YB CAND STATUS @ STATE e000 gy 
090000 1439 SLX SET a) ov @ 
000001 1440 P.PIn SET PI — TO as ee gr take ge eg ee ge ee re ee 
001377 1441 LOPCK BSS 2 | /* LOOP PROTECTION KPX SAVE AREA | 
001401 1442 BYPAS BSS l e BY oy. D PRO Ty OOP = 
001402 1443 DSPEVT BSS 1 xEVENT REQUEST TO PROCESSOR PROCESS « 
= QOle0S 264@ SELECT GQU. .°....-... 0 
1465 INHTB SAVEsOFF «@ 
091403 000000 6260 00 000 1446 4G AX  KPX#0 «INITIAL VALUF TO SEARCH © - 
091404 006024 4714 07 000 1447 LDP PePIDeSDePIDsDL rs 
On1G05 O06l33 4724 07 O00 i448 © LOD  “PeKLeSDeKbeDG UU nn ne yg pn egg 
091406 006042 4734 07 000 1449 LDP PePROQ*SDePRQsDL Be 
On140 O11 450 0 : Ee 
091410 000000 0110 07 000 1451 NOP eDL a ) 
| 1452 INHIB 5 ar 
ON1411 700100 2343 17 000 1453 SZN eCRCMCePNePeCR IS PROCESSOR RETIRING 00000020 
091412 001416 6052 00 O10 14546 °° ° &2x5TPL } »&SLCT6©=©}»=>©NOs CONTINU TS OD0000 LG 
001413 1455 eGOTO eMFALTel YES» PARK IT 00000020 - 
PALES SAVE GON ga 
091413 000002 6306 04 1415 EPPRO *4#29$ n®@ 
O01416 7OO0LO 7i0a DO 000 ©. TRA “@CRGTOssPeC 9 ee a gg 
021415 000065 000001 000 ZFRO eMFALT ol ? 
OE a TG Pee ee a ee ONE. RES TORE. 8 egies 
~—o 001416 1456 SLCT& NULL 00000020 
e é YOU YOU YOO [4% YC eCROG  F5e0treCkK £BEFOR A T-TO TR PTSPOPt 
091417 001423 6002 00 010 1458 TZE SLCT9 INTERRUPT HANDLER Js WAITING 60 = NO) DISPOPU! 
6 2Q OQU6 76 QU UO0 po} PO a SDA KL 9 PP CONPRO » 24340) 9 PTSPOPt ee 
091421 000114 4707 00 000 1460 LoOP POweKLIOSesPO GET ITS DESCRIPTOR AND GO DISPOPUI 
O0N1422 O0OOIN 7103 00 000 T4461 RA @eeP0TO-ENTRY POINT 8 temMI0S e838) DTSpoPpulT 
001423 1462 SLCT9 NULL DISPOPU! a 
an aes. -- ane, VeLCey one Doe: ee ew ee 
_ 001424 1444 SHUT. PST 3 , i@ 
ONL425  O0T40 02 00 UI0 144 TYPA <—aAVE- y-DROCESS—T a 
01426 001402 0342 00 010 1466 LDAC DSPEVT *ANY SYSTEM GLOBAL EVENT | = 
ON142 O03076 60 00 OI0 46 N DEV rs PROC ,@ 
a 091430 1468 SLCT1 EQU * | bt 
QO} @ WUT b &) S16 Y Ke aK KeMX eer RKW SARA SE o PKG a ORT . hu al ae 
oe 1470 | DUMPER 1S ACTIVE» TRA TDCHCK. = ) 
ON1431 OOL3I5 6002 00 O10 471 TZ2E WATT INOUENT RY 8 
091432 700270 1063 00 000 1472 CMPX KPXeeCRMKPeePeCR CHECK FOR VALUE GREATER THAN MAX SUBD1130 
071433 001435 6022 00 O10 473 NC SLO TAN MA UBDIT40 ——, @ 


. E : ; 7 oo 
1248T 02 12°27°79 09.4322 H6600J7e057 GCOS IV 4VX DISPATCHER 791219D1SP PAGE 52 ee 
SELECT A PROCESS TO DISPATCH <@ 
9S 
091434 002213 6012 00 O10 1474 TNZ SBNSP « SUB-DISPATCHs GO TRY IT SUBD1150 ad 
001435 1475 SLCTS EQU * vs 
1476 CHFCK IF THIS PROCESSOR CAN DO THE JOB es 
001435 000000 6352 16 000 1477 FAA 9KPX et Ee ee A ee 
091436 000002 7352 00 000 1478 ALS 2 * KPX*2 B PID INDEX .®@ 
091437 100000 2363 01 O00 1480 LDQ 9AUsPePID *CHECK IF WSRO 1S ONE © os 
091440 777000 3762 03 O00 1481 ANQ =0777000sDU *IF NOTe CAN*T PROCESSED ev 
091441 001000 1162 03 000 14a2 CMPQ =01000eDU wv @ 
001442 001444 6002 00 010 1483 TZ2E SLCT1O | in 
001443 1484 . Z0PS ov 
| 001444 1485 SLCTIO FQU x « ® 
001444 100000 7727 01 O00 1487 LOWS 9AUsPePID *GET ADDRESSARILITY | - 
091445 100001 7727 01 O00 1488) LOWS LeAUsPePID *CHANGE WORKING SPACES 
091446 000000 O112 07 000 1489 1eSLCO NOP 2DL MP = LDQ eSLWSQeePeSSA  . ©@©6©6©000000200—C, @ 
ON1447 000000 0112 07 000 1490 NOP 2DL MP = STQ eKLWSOePNePeKL 00000020 “ 
001450 1491 ~TCAMP Pax RA “TATYVE MEMORY DONUNNZN eo 
| INHTB  SAVE9ON . 
091450 200147 2143 17 000 SZNC aKLCAMs 7ePeKL se 
091451 000002 6002 04 000 TZ2F 2eTC 
091452 000000 5326 00 000 CAMP 0 
| INHIB RESTORE 7 ge 
091453 600005 2363 00 O00 1492 LOA eOATIR:G tPe DOF ¥ ATTRIBUTE OF PRC 
091454 400000 2762 07 O00 1493 ORQ =0400000sDL "OR" ON BIT FOR "PROCIR IN TEST" 00000020 
091455 300007 3163 17 O00 1494 CANQ DePRF ePNePePRO *#CAN THIS PROCESSOR EXECUTE THIS eS 
091456 001520 6012 00 O10 1495 TNZ SLCT50 « NO»eGO SEE WHY | 00000020 i 
091457 001377 2362 00 010 1496 Lna LOPCK 7* LOOP CHECK 1S DEPTH 2. 
091460 001400 1162 00 010 1497 CMPO LOPCK+1 
ON1441 001464 6012 00 010 1498 TNZ SLCTILS | ap) 
091462 001377 1062 00 010 1499 CMPX KPX sLOPCK /* CHECK LOOP 
091463 OO1515 6002 00 O10 1500 T.SLCT TZE SLCT4 _0OP oz 
001464 1501 SLCT15 FQU * ez 
091444 001377 7462 00 010 1502 STX KPX sLOPCK | z@ 
091465 001400 7562 00 010 1503  =~§TA LOPCK+1 | ag 
OO1466 15904 SLCT16 EQU | * zz 
091466 400000 2363 16 O00 1505 LDA eKPXePePST 
ON14467 100000 3162 03 000 1506  — CANQ  PSaEXC DU 0000 
001470 001430 6012 00 O10 1507 TNZ SLCT1 *#ALREADY HE IS IN EXECUTION 
on1471 2'62 O: 00 1508 ORO ‘ ° XF. 
001472 040000 6762 03 O00 1509 ERO PS.DWTeDU *AND RESET WATTING BIT 
On1473 «4 0 7563 16 1510 6 oKPX oP e 
091474 100002 7737 01 O00 1511 LOSS 2sAUsP ePID *LOAD SSR 
ON1475 000 0 6 000 1512 LDX LXeDePRQ2KPXAPePROQ *TAK HE PRO OT OF QUEUE i 
001476 300037 7213 16 O00 1513 LXL: ZaMePROKPXePePRO | 
091477 300037 4413 10 O00 1514 | SX. ZeNePRAMSLX*PePRO 
091500 300037 7403 11 000 1515 STX SLX »DePRQ2ZsPePROQ | ‘i 
OAT501 004000 O O00 1516 ~ LDXO eAEXTMs DU AECK FOR EXTENDED MEMORY EXTMSTI20 
091502 600005 3003 00 000 1517 CANXO _ eSATTRo9PeSSA EXTM5130 
091503 OO1510 6002 00 O10 1518 Tze SLCOT20  « NOT EXTENDED MEMORY ©&XTMDSI4¢ : 
001504 001764 4706 07 O00 1519 LDP POs.SSReDL IT 15 EXT=MEMe SQ LOAD WSR 47 EXTM5150 : 
ON1505 001761 4706 07 000 1570 LAP PO seCTYP,DL FROM S/S FRAME AND PUT C;EXTM5I60 = JV. @ 
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SELECT 
001506 000001 7727 00 000 1591 LOWS 
ON1507 100001 7527 01 O00 1572 | STWS 
001510 1523 SLCT20 Equ 


300037 4503 16 000 1524 STZ 
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791219DTSP PAGE 53 


DISPATCH 


EXTM5170 
OAD HEM OM TH X 


/*® ENTRY FOR TRACE DUMPER SELECT 


RY KPXaPN aN | C}N ¥ 


On15) 200044 7463 17 O00 15277 STX KPXe.KLPRGsPNePeKL *SHOW WE ARE EXECUTING 
ee id 1528 *GO TO REDSP 
001514 001534 7102 00 010 1529 TRA RENSP /* ENTER REDISPATCH 
i 001515 1530 SLCT40 EQU % 
001515 001377 4502 00 O10 1531 STZ LOPCK /* SHOW ONE CHECK HAPPEN 
091516 001401 7462 00 O10 1532 ST X KPX sBYPAS D SAVE THE KPX e 
001517 001430 7102 00 010 1533 TRA SLCT1 
001520 400000 3162 07 000 1534 SLCT50 CANQ =0400000»DL WHY CAN'T THIS PROC'R XFC THIS PROCESS 00000020 a 
ON1591 001430 6002 00 O10 1535 TZF SLCT1L SKIP IT* RFASON NOT *PROCYR IN TEST" 00000020 - 
091522 006144 4706 0 1536 LDPO SD. SN : 
091523 000100 3362 07 O00 1537 LLCO =01009DL PROC'R IS IN TEST AND SO CAN ONLY 00000020 
091574 000000 3763 16 O00 1538 ANQ 0969 EXECUTE PROCESSE I MB 
001525 001532 1162 00 010 1539 CMPQ SLCT55 ___® SPACT OR $SOLT 00000020 
01576 001466 6002 00 O10 1540 TZF SLcT16..— = 
001527 001533 1162 00 O10 1541 CMPQ SLCT56 00000020 
ON1530 466 6 42 TZF Cc | 
091531 001430 7102 00 O10 1543 TRA SLCT1 00000020 
001532 47212 0 1544 SLC BCT 9% 
091533 536246436300 000 1545 SLCT56 BCI 1e$SOLTO 00000020 


i i rm nr rr ei aon alae ia mor i panes tanesn ene nn are aan a 


: anand sed ai i ir ii a i a. 
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8S 
nDISPATCH TO THE PROCESS ~@ 
1547 * gS 
— «*'* YB OR)))©)6uTATS «UROUTINE REDISPATCHES PROCESSOR TO SLAVE PROCESS. See 
7 1549 * DSDR IS LOADEDe PST «STATE «SRQST ARE UPDATEDe os 
1550 *  TYMPR 15 LOADED AND TIME LIMITS IS CHECKED em gg 
155] % SUB=-PROCESS EVENT IS CHECKED IF ANY TO STARTe ® 
1552 * ~ DATA SET eKLPRGe PIDWORD PN ssn gg 
1553 * REGISTER SET KPX PN PeCR PePRQ PeKL PePID = 
1554 * GATE SHUT NON oo a oo @ 
000000 1555 FRX SET fe) 7 ty 
000000 1556 PePSH SET PO 
000000 1557 P.sPSX SET PO ov ® 
000001 1558 P.ENT SET Pi ae 
o00001 1559\P.10Q SET P} es 
000001 1560 PePDP SET Pl | w@ 
001534 1561 REDSP EQU * | | i. 
001534 700546 716 000 1542 XFC eCRCSH PNP eCR *%ENAB KCH KVATLAG 5 
091535 000027 0112 07 000 1563 TeRDO NOP MPCCAC™MPBASE*DL MP = TRA MPCCAC | 00000020 «@® 
091536 600117 2353 00 000 1564 LDA eSROSTe9ePeSSA  }=}©})©6© IF SINGLE PROCESSOR CLEAR CACHE 
091537 000200 3152 07 000 1565 CANA eRCCAC SDL FOR THE PROCESS WHICH HAS . 00000020 
091540 001546 6002 00 010 1546 TZF RDOA 1/0 COMPLETE. IF MPe....... ®©OO000020 —*® 
001541 1547 RNO eC CAC P.KI. CLEAR CACHF ON EVERY nDISP!H 00000020 ge 
INHTB SAVEON 
0N1541 Q00000 0116 00 000 CCAC “@ 
001542 TOOI7] 7163 00 000 ~~ XEC sCRACCS9ORSPSCR°©6=€UC!”™C™~*~™”:~C~C eS 
001543 700040 4133 00 000 RSCR 3259PeCR 
091544 200240 7573 37 000  ®&STAQ Se CCas esa Se Se ee 
091545 200000 4503 17 000 STZ eKLCACs 7ePeKL ez 
— INAIB RESTORE 2200000000000 gg 
001546 600117 2353 00 O00 1568 RDOA LDA eSRQST o9PeSSA 00000020 2®@ 
On1547 001200 3752 07 000 1569 &4ANAeRTRO+eRCCACODL 2 
091550 600117 6553 00 000 1570 ERSA eSROST 9 ePeSSA . 
001551 204000 2352 07 000 1571 LDA SYSORsDL *SET SYSTEM NECESSARY OPTION ae 
001552 600116 2553 00 000 1572 ORSA eSORSV9ePeSSA TILL INITIALIZED BY STARTER = 
001553 6O0OLLE 2’ 00 000 1573 XeRED p 2 DORDVe Peder KLUAD OPTION RE! a oe 
| ss | 1574 *IF MULT I=PROCESSOR» SET eCRORR/S | 
091554 600303 6743 04 000 1575 LCPR 7 OMR5V904ePe59A LOAD MODE REGYI OR HEXe OR NO DI SPO0Gx oz 
091555 006204 4706 07 O00 1576 Lop POeSDePSHeDL - 
091556 OO1761 4706 O07 O00 1577 ~~ LDP POeeCTYPeDL XCHANGE TYPE °°” ©  ©°”.®©}©}©™§©@=%plD@®06™0. eg & 
091557 000036 5717 00 000 1578 LDDSD PH.eADSseP0 *LOAD DATA SINE eee ” 
001560 O0T3S04 02 00 O16 579 TYDISP TRA eDISP RNOP RA BRO a F : 2 
001561 700737 0543 00 000 1580 AOS eCRTDSoePeCR *COUNT UP PROCESS. SWITCH TO SLAVE «a® 
001562 600230 0543 00 000 15ai AOS 2 STDSP es oP e SSA 7® COUNT OF DISPATCH = EXCeREPOR = 
001563 400000 2353 16 000 1582 LDA eKPXoPePST *PULL PROCESS STATUS , e 
001564 001000 3152 07 000 1583 &#;¢ ANA °+£PS.LRMeDL IF ALARM SEEM TO HAVE RANG = - .@ 
091565 001574 6002 00 010 1584 TZE RD1 *NO | ‘i 
ON1546 O01000 6 0 O00 15aA5 ERA PS eLRMeD 18 AE BY me 
0015467 000201 3362 07 000 1586 LCO SVs | | é -@ 
001570 600017 3563 00 000 1587 ANSO o STATES OF 18 ALARM SET B N rs 
O0N1571 000020 2362 07 000 1588 LDO " TRANG» DL TURN ON BIT SAYING IT RANG 00000020 
091572 600017 2563 00 O00 15289 ORSO SSTATEGsD SSA SS Sn @ 
S 
v “I 
: @ 
ra 
°@ 


, vy 
091605 001673 7102 00 010 16n2 TRA UCC *START USERCOURTESY CALL ey 
BaieGE 002051 7102 00 010 163 TRA SWP "SWAP OUT THE PROCESS 7 


| — is Fe ee ON a ee ge ees oo 
1248T 02 12827879 09,322 H6600J7.057 GCOS IV 4VX DISPATCHER 791219N1SP PAGE 55 os 
——s DISPATCH TO THE PROCESS  ) 
091573 400000 7553 16 000 1590 STA oKPXoP.PST *SHOW WE ARE EXECUTING ye 
001574 1591 RD1 EQuU * — ~® 
001574 1592 OPEN. PST *OPEN a 
091575 006036 4716 000. 1593 LDP ePDPsSDePDPs 
001576 002041 3212 03 000 1594 LCX XTMPsZINTRP+ZIOWEN+l*DU RESET PDP ENTRY INTR*PD 00000020 
091577 100000 3413 16 000 3595 | ANSX XTMPyeKPXePePDP *INDICATOR 
0N1600 001615 2362 00 010 1596 XeRDIA LDQ TQTM *TIMER SETTING QUANTUM 
2. —~*597.~*~ ~~ SOOSSSOSSOSOSSCSC“(NSNSNSCC_o CHECK B PRIORITY FOR TIME QUANTUM 
0N1601 003533 7012 00 O10 1598 TSX ZeLDT *CPU TIME ACCOUNT SWITCH | ie 
001602 003713 ?0l2 00 O10 1599 TSX CKEVIXOCKEV RDETERMIN ANY EVEN ae ae 
01603 001604 7102 10 O10 16n0 TRA RDLST sEBX *TRA TO PROPER ROUTINE av @® 


091604 OO1616 7102 00 O10 Té601 RHLST TRA CONT BACK TO JOB AND CONTINU 


fe 


ON1607 002104 7102 00 O10 1604 TRA ABT *ABORT REQUEST 
001610 OOL610 7102 00 O10 L605 TRA WAT OF 
091611 001676 7102 00 O10 1466 TRA SCC *SYESTEM COURTESY CALL , « @ 
OM1612 OO2121 7102 00 010 1607  &;|'TRA GPR ¥GEPR PROCESSING ©. OOO G6 
091613 002143 7102 00 O10 .14n8 TRA 50.GPS *S/S OVERFLOW FAULT OR GEPR ON SYS I/0 a. 
001614 602135 7102 00 O10 16n9 TRA “BEAD PROCESS: TS FROZEN sD 
— | 1610 | Be 
001615 014430 () O00 010 61) QTM RA DTS V QUANTUM O ON DISFA = ie 
1612 _ *#SET AT INITIALIZE | 
001615 1613 2ITDISP EQU TOQTM ¥STEP BOARD TO INITIALIZE ROUTINE ze 
, le 


sete tS rp a PP nme re a a a in a nia me 


@ os evar: aS o® 
6s 1248T 02 12-27°79 09.322 H6600J7.057 GCNS IV 4VX DISPATCHER 791219NTSP PAGE 56 “ 
8S : ; 8g 
@ .: FNTER INTO THE PROCESS i® 
9S 9S 
ss 1615 * THIS SECTION BIGINS CONTINUE THE PROCESS OR START A . 
@.; 1616 * EVENT PROCFSSING SUB=PROCESS» IF ANY AND POSSIBLE  .. ..... ¥g 
€s 1617 * eS 
2g 1618 #** | zg 
Os BACK TO JOR AND CONTINUE PROCESSING ls @ 
os ad 001616 1620 CONT €EQU = | — 0s 
er 091616 003577 7012 00 O10 1621 TSX CKLMTX a CKLMT *CHECK IF CONTINUE ALLOWED ev 
eo. 001617 600017 2353 00 000 1622 LDA eSTATE CP eSSA ae ay 
lp 001620 600031 2213 00 000 1623 LDX Z9eSDLVL99PeSSA i 
ov 001621 001625 6012 00 O10 1624 TNZ CONT ov 
@: 01622 000200 3152 07 000 1625 CANA e TALRM9DL *IF ALARM IS SET IN MAIN LEVEL ow @® 
by 091623 001625 6002 00 O10 1626 TZE CONTI RESET ALARM. BECAUSE PUTPRQ by 
ey 001624 003225 7052 00 O10 1677) TSX RETLRXeRETLRM *ROUTINE DOES NOT RESET ITe 
eo: © on 001625 1428 CONTI EQU % i 
ly 001625 600017 2353 00 000 1429 LDA STATE) #PeSSA *IF THIS PROCFSS IS WAITING ENABLE e 
ov 0016726 600000 2 0 000 = =1630 CANA eo TRDOBK +e TR 9D ROAD OR R ATUS Op 
@ « 091627 001633 6002 00 010 1631 TZE CONTLA *NO | a) 
8 091630 002555 7022 00 O10 1632 TSX DACNX sDACNC YESe DO NOT DISPATCH NOW °°” ©}§©§©~— 7... gg 
le | 001631 1633 OPEN. DSP ls 
@« 0N1632 001173 7102 06 O10 1634 TRA MAIN GO NEXT CYCLE a “oo ® 
ge 001633 1635 CONTIA EQU *% Ge 
wv OM1633 100001 3362 07 000 1636  LCQ  eTWAKE+IleDL | RESET WAKE STATUS = ¥¢ 
@: 091634 600017 3563 00 000 1637 ANSQ STATE ® sPeSSA “@ 
ze "001635 002001 3362 07 000 i438 Lco “PSeENB+leDL RESET ENABLE FLAG 
le 001636 1639 SHUT. PST 
@«: 091637 000020 3152 03 000 1640 CANA: so TSWP 9 DU *TEST BIT OF SWAP T None | 
6z 091640 SEE 6012 00 O10 1641 TNZ CONT2 6z 
8z 001641 6 6 0 1442 9 are . 
@ 001642 1443 CONT2 EQU * z® 
92 001642 1644 OPENe PST 9z 
sz 001643 1645 OPEN. DSP | sz 
@ i 000000 16446 XTMP SET 0 a) 
ez 000000 1647 PeDDS SET PO €Z 
zz 1448 RMUST NOT YTNHYB OFFe zz 
@: 1649 *THERE MAY CRITICAL STATUS WITH JUST 2@ 
oz oes ot 1650 ¥S7S FRAME CEFT oz 
6h 091644 003536 7012 00 O10 1651 TSX ZeRSCR /* GET TIME INTERVAL TILL NOw Zi 
@: 091645 TOOT67 0553 17 000 1652 ASA eCROVHePNePeCR AND ACCOUNT TT FOR PROCESSOR PROCESS a @ 
ut 091646 600012 2353 54 000 1653 LDA eSSAsDI oP eSSA /* GET MACRO STACK is 
91 VOT64T QO00 0 000 65 ANA WSK oD TTY IPE = 
@: | 0N165Q9 010000 1152 07 000 1655 CMPA STYP19D0L , 3s ® 
vi ONT651 OOL 64 mere O10 656 NZ CONTS NO Yh ( ti 
e1 1657 /* NO NEED TO RESET eSELVL i 
@: : —  OO0C0S” 1658 PeSSR SET Pe @D 
7 01652 001764 4736 07 000 1659 LDP PeSSRoeSSReDL /* CHECK MODE AND IF MASTER 
o  £OOf653 OOLT6EI 4 U V00 1660 DP Pe SSRoeeCTYP 9D PRO wR NOe IN ae 
@ : 091654 300004 2353 00 000 1661 VSLC3V LDA eWICI 9 9PeSSR « @ 
oe  0f1655 000200 3752 O07 000 1662 ANA popes eee 
L 0N1686 001662 6002 00 O10 1663 T2E CONTS OFF + SLAVE 
@:> 601657 300053 4473 00 000 16464 £4SXL PNeeWREGS*+390P.55R ON - MASTER MODE NEEDS PN. ;@ 
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12727"79 09,322 H660NU7.057 GCOS IV 4VX DISPATCHER 791219DI1SP PAGE 57 - 
F NT ER INTO THE PROCESS i 
091660 300053 7463 00 000 16645 STX KPX9eWREGS#399PeSSR AND KPX sé 
091661 001663 7102 00 O10 1666 | TRA CONTS8A 20 vs 
| | 001662 16467 CONTR EFQU * | es 
0091662 006325 7022 00 010 146468 TOVHI TSX OVHX es OVHW UReTIME (NOP «DL «CROFT & U VU00VUCU : 
001663 14469 CONTBA FQU t 00000020 
fe 001663 _ 1470 OCLITMB | os 
091663 000000713400 000 VFn 1870909/71391/191/091/0967/0 ey 
091664 00000001 000C 00 VFD 1/009/0s8/0sl/ v2 7Os2/lal2/ a  ) 
001665 1671 CONT9 EQu * : ie 
001665 03705 70 00 O10 67 X 7 RDSPR : “re - 
001666 000000 1152 07 O00 1673 CMPA STYPOsDL /* IF TYPE O THIS CALL FROM HCM MAYBE 
ON1667 OO01672 6012 00 O10 1674 TNZ CONTI 
091670 600012 4707 51 000 1675 LDP PeMCROoeSSAel ePeSSA | 
ON1671 000000 7103 00 000 1676 TRA 99Pe U p 
001672 1677 CONTLO EQU * e 
OUTS 678 A) * 3 OTRER TYPES AR RROR 5 oe 
1679 * oc @ 
1680 * START COURTESY CA PRO WG BOTH FOR USER AND FOR se 
: 1681 * 
—T6p2 ®ECFLG ONL T HAS LEVEL Ne ‘ 
1683 * 18-35 eTINCC/eSYCC , . Ge 
eg yl ee ye RG go me rep ee ee ae 
000002 1685 CCY SET 2 
ee ee no OOOO ~~ «6B6: XIMP Ser 20> > > ee age 
000000 1687 XELVL SET ) 
0016 1688 U QU % 
001673 003577 7012 00 010 1689 TSX CKLMTXsCKLMT *CHECK IF wE CAN PAY NEW USER CC 
11674 QOQ000 Q U orere 690 DX XI Me ee \ aVU 
001677 7102 00 O10 1691 TRA CCO 
69 
001676 000400 2202 03 000 1693 LOX XTMP ee TSYCCeDU 
116 1694 CCO EQU % 
091677 002100 4402 17 O10 1695 SXL XTMP eCCFLGePN *SAVE CC TYPE THROUGH RETLRM 
001700 60370 OT2 00 O10 696 aRDOPR RLOAD DSARs ASRe PRs RF ER 
ONL701 003632 7012 00 010 1697 TSX SVLVLXeSVLVLN /* SAVE CURRENT PROCESS STATUS 
001702 00 0 O06 010 698 SX RETLEA SK HC I i» AL AKM oz 
ON1703 002100 7202 17 010 1699 Ext XTMP sCCFLGsPN 
04 0 Me 9e t9K es Py 
001705 1701 OPENe psp 
Q) 6 eley. fy OOO 02 »  @ eQVeKL OL 
a 001707 1703 «SHUT eKLSCCeoPeKkL *SHUT CeCe QUEUE 
N1 12 + 704 Je ¢e 99h e eVe 
001713 001723 6002 00 010 1705 TZE Ccc70P *NO ENTRY WHY is 
ON1714 006 ZT16 706 LD eTOOsSDel0Us | a® 
091715 001761 4716 07 O00 1707 | LDP PaTOQseCTYPeDL *CHENGE TYPE 100 SEGMENT . 
Se ee ee PO CO er ag oe ee Tan EE Se ae 
001716 100003 7223 14 O00 1709 LXL CCY seWEPIDeXIOEsP.10Q | 
On1717 200044 1023 17 000 1710 CMP CCY se KLPRG a PNoPeo A NTRY ONE OF THIS PROCES : 
ON1720 001724 6002 00 O10 1711 TZE CC? *YES A CANDIDATE 
| = OOL721 1712 CCINXT EQU. * °° °° 


se 1248T 02 12=27+79 09.4322 H6600J7.057 GCNS IV 4VX DISPATCHER 791219DISp PAGE 58 e 
8s 
@ .: FNTER INTO THE PROCESS 
9S 9S 
ss 001721 100000 2243 14 000 1713 LDXx X1OE s+ eWEST sXIOEsP.10Q ie 
@ :: ON1722 OO1716 6012 00 O10 1714 TNZ CCl ¥TRY NEXT ——_@ 
és 001723 1715 CCZOP ZOPS *NO CeCe ENTRY BUT eSROST DEMANDED " 
¢ oe 001724 1716 CC2 EQU ¥ 
@ :: 001724 002100 2202 17 010 1717 LOX XELVL eCCFLGePN ; 
os 001725 100004 2363 14 000 1718 LDO eWESCTeXIOEsPeTOQ | os 
es 0N1726 000001 1002 03 000 1719 CMPX XELVL91eDU *IF SYSTEM CC TO BE PAYED i 
@: 091727 001735 6002 00 010 1770 TZE C3 ¥NO USER CC  ) 
i 001730 000220 3162 07 O00 17¢?1 CANQ eFSYOT+eFNABTeODL /* IS THIS SYSTEM CeCe a 
vw OM1731 001735 6012 00 O10 1722 ~ TNZ GOs. oe NN — a RN ay ee hae 
eo: 001732 100001 2353 14 000 1773 LDA oWEPRVeXIOE »Pel00 
vy 001733. 100000 3152 07 000 17274 &4CANA  eFFTYPsDL /*® IS THIS SYSTEM I/O ENTRY ©)”. w& 
ep 001734 001721 6002 00 010 17251 TZE CCINXT NOe TRY NEXT 
@: | 001735 1726 CC3 FQU % 
tv 001735 002100 7562 17 O10 1727 STO CCFLG»PN *SAVE CCATTRIBUTE : 
ov 091736 100001 2353 14 000 1778 LDA aWEPRVeXIOE Pe lOQ HECK FOR T. MEM. Cele KTM45 70 
@«: 000010 #1729 .FEXTM BOOL 10 HRHHEHKH TEMPORARY KEREHHK EXTM4880 
Be oO 80002000~=~—~C~*~**ST7 BO A FEXTC BOHOL = 20.  +~=——~C™—OC HEMMER HR TEMPORARY #HRHRHH 8  O0DD000Z0 = | 
us 091737 000020 3152 07 O00 1731 CANA eFEXTCeDL 00000020 i 
@: 0A 1760 001770 6002 00 010 1732 ° &«*|'T2E CC3A « NOT AN EXT=MEM CeCee USE OWN WSR 00000020 ,.@ 
$e ON1L741 O0001L0 3152 07 000 1733 CANA eFEXTMeDL EXTM4890 ge 
vw —SOt=<CSstsC<CNY D-H GOO? OO OLD 1734 TZE CC3B 1 MEMORY UNWIR N18 shejejerelerse | i. 
@ : 0N1743 O00010 6752 07 O00 1735 FRA eFEXTMsDL RESET EXTe MEMe FLAG SO UNLINK EXTM4910 «<® 
ze ON1744 100001 7553 14 000 1736 STA aWFPR IOE®Pe] 0 WI T ogg 
te 01745 000040 2352 07 000 1737 LDA e TAWSC ODL TURN ON FLAG FOR CeCe TO AUXe WaSe 00000020 i 
eo: 0N1746 600017 2553 00 000 1738 ORSA aSTATE9?® 3 — of 
ez 001747 1739 CC3B NULL 00000020 és 
ze ONL?47 100021 7527 14 000 1740 WS SWEDRF +l oXTOE Pe lOQ AVE PRO WSR | KTM4930 
@ 091750 100016 2363 14 000 1741 Lda eWFDRI sXIOEsPeI0Q EXTM4940 -@ 
ze ON175) 000002 3162 07 000 1742 ° + & &«&«&#2xCANQ  £2eDL  £CHECK FOR TYPF 2 DESCRIPTOR  EXTM495000 °° 2 77 
ez ON1752 001770 6002 00: 010 1743 TZe- CC3A « NOT TYPE 25 USE NORMAL WSR'S EXTM6960 
@ 091753 O17760 3762 07 O00 1744 ANO =O0177600DL REA # FROM TYP D STOR =~ 
ez ON1754 000027 7362 00 O00 1745 QLS 23 THAT “was USED FOR 1/0 AND PuT EXTM4980 ez 
zz On1 75! 100021 4 000 1746 pA aWFDORFE +L eATOEoPe lO s VALU ITO W M4990 seus 
@. 01756 000011 7712 00 000 1747 ARL 9 eLoNe WITH PROESS VALUES EXTM5000 i ) 
oz ON1L757 000011 7372 00 000 17468  &4.\.(§ 9 “FOR WSR 4e6. OO OOOOCEXTMSOIO OO 
6 091760 100021 7553 14 O00 1749 STA eWEDRF +1 sXIOEePeIOQ EXTM5020 
@: OO1761 100021 7727 14 000 1750 #CDWS eWFDRF+leXIOE*PeIOQ © 
i 01762 000400 2352 03 O00 1751 LDA eTSYCCs DU IN sSTATEs TURN ON ce pooago2e 
91 On] 46 6000 ore ojere 1752 ORSA enle er . UR v 
@: 001764 006024 4706 07 O00 1753 LDP b0eSDePID SDL. MUST ALSO SAVE WSR ant IN PID EXTM5060 
nw OTTERS CO 6 6 754 E 26 , 
et 001766 000002 7352 00 000 1755 ALS 2 RELOADS THEM FORM PID EXTM5080 
@:  ..OAT747 OOO00L 7527 01 000 1756 STWS 1 eAUePO DURING THE COURTESY CA KTM5090 
ir 001770 1757 CC3A NULL EXTM5100 ia 
ol er O UOOU OOO AY: X eWFO ’ uxiz aie ONT DCW : : 
@: 1759 *THIS DATA NEFDED FOR FSYS CaCe 


efOQs 


Pe ENT + eWEIOE sXIOE Ps 10Q 


‘ ee Se ee A pe ee ee ee oe ee ee oo 
1248T 02 12—27=79 09,322 H6600U7.057 GCOS IV 4VX DISPATCHER 791219D1Sp PAGE 29 
FNTER INTO THE PROCESS - ) 
9¢ 
1763 56 
1764 ~® 
001773 1765 OPEN eKL SCC oPeKL a 
ON1775 000000 1116 00 000 17A6 SDR tS *) rs MOAVE IN AST ag 
001776 600012 4517 56 000 1747 STP PeENT 2 eSSAsIDePeSSA .@ 
ON1777 GOOOl2 7453 56 000 1768 STX5 eSSAN(DOPeoom °C ae ee ee ga geen rs 
ON2000 000001 6352 00 O00 1769 FAA l ae 
0N2001 000000 6362 00 000 1770 FAQ 0 ras 
002002 1771 sCALh eMI0S932 *#UNLINK THE CeCe ENTRY ee 
“annie SAVE SON OO ee we ep ee ee We ge a 
ON20N2 000003 6306 04 2005. EPPRO H+30$ @ 
0N2003 700002 7103 00 000 TRA PCROAL Geel Re ng Se ggg ey SNe SBT Sg 
0n20N4 000002 000040 000 ZERO oMI10S932 | | et 
INHIB RESTORE mms oe 
1772 *eMIO0Se32 DOES NOT LOST X5 Ps a 
l773 * : ~ 
1774 * A ROUTINE WAS REMOVEDs WHICH PUSH DOWN REGISTER SAVE «@ 
1775 * AREA FOR MAIN LEV AV canes 
1776 * 
097005 700734 0543 00 000 1777 °° &«25ANS eCRTCCeePeCR *COUNT OF TOTAL COUTESY CALLS 
ON2006 600012 2253 54 000 1778 LOX5 Secale * RECOVER Ge 
ON2010 600214 0517 00 O00 1780 | STD P. ENTs.STMPAs sPe SSA | «® 
002011 007336 7102 00 O10 I7al YYSCC TRA Ye5CC YOP RA AR OUR Y CA o 
ON2012 003536 7012 00 O10 1782 TSX ZeRSCR /* GET TIME INTERVAL TILL NOw 
OAD013 700TST 0553-17 000 17a3~ ASA CROVH PNP OCR CANDsCACCOUNT AS OVERHEAD 
092014 600215 2353 00 000 1784 LDA e STMPQ9ePeSSA *IS ENTRY DESC SHOW SYSTEM LINKAGE a 
097015 002077 T152 00 O10 1785 CMPA SYSCCESD I gg 
002016 002023 6012 00 010 1786 TNZ C0545 #NOe CHECK »«SATTR n® 
002017 600214 2353 00 O00 1787 © LOA oSTMPAnePeSSA 0 2 
092020 000177 3752 07 000 1788 ANA 201779DL *WSR AND TYPE 
ON2071 002076 1152 00 O10 1789 CMPA SYSCCE — a 
0N2022 002031 6002 00 010 1790 — TZE CCH ez 
ee ROSS. ROE COom OUD Rn gn ig 
092023 600005 2363 00 O00 1792 LDA eSATTR9ePeSSA | | a) 
092074 200000 6e OF O00 1793 CANO oAs 2D : PECTAL PRTV D- PRO 3 _ 
0N2025 002042 6002 00 O10 1794 TZ2E CC? *#NO « PAY IN SLAVE MODE 6 
092026 002100 2362 17 010 1795 LDO CCREGSEN CD rg Pee ee iene ee epg eo eee gale 
0N2027 000004 3142 07 O00 1796 ~ CANQ oF CCMMeDL /* IS THIS MASTER MODE CeCe - 
092030 002042 6002 00 O10 L797 T2E COPS BAY TN Sg 
- 002031 1798 CC6 EQuU % i ®@ 
092031 006204 4736 07 000 1799 ° &4.LTDP P3sSDePSHeDL *MASTER Co Co gt 


092032 200052 6757 00 000 1890 VSLC4V LDD P.SSLoeeKLSLVeePeKL /* PREPARE ODR?#S 


0092033 000644 6/46 302 eNULL: 
092034 000644 6726 00 O10 1893 LDO P2sPeNULL uM 
0N2035 ~=6—00064 5706 DUO O10 if ao POs Pe NU =— 
| 002036 1805 ICLIMB s#ODR+PeENT *xENTER 
ON2Z036 H00000 340 000 VFI 87309 el/le ox) 096/Me ; 
092037 000000201771 000 VFD 1/099/0s8/0 s1l/eNol/0992/002/0012/e20DR+P. ENT 
002040 1807 ZOPS 


a a i acho nro nine ae ia nr een ae a ran SS 


@ Sace < | | | 
62 1248T 02 12727779 09.322 H660047.057 GcnS IV 4VX DISPATCHER 791219D1SP PAGE 60 
8g 
@ . FNTER INTO THE PROCESS 
9S 9S 
SS 1808 * STOP SYSTEM Sg 
@:: ON7041 002045 7102 00 O10 lang TRA CC9 *GO ABORT THE PROCESS 
a | 002042 1810 CC? FQU sk He 
% 02042 006325 7022 00 010 1811 10VH> TSX OVHX»OVAW 3 UR=TIME (NOP »DL eCROPT B OFF) o000u0ZU 7 
@ : 002043 1812 ICLIMB eODR+PeENTeesSLAVE *#PAY SLAVE MONE COURTEST CALL “——— 
os 092043 000000713400 000 VEN 187009/71301/101/091/096/Me : é 
ev 02044 000000001771 000 | VED 1/099/098/091/eN91/0092/092/0912/e0DR+P ENT 
@« | 002045 1813 CC9 EQU x |  @ 
ow 092045 006262 2362 07 000 1814 LDO =3HOSSsDL *ABORT PROCESS IF OCLIMB ie 
_ 002046 1815 . eCALL eMBRTLed . DISPUPTZ ov 
@: | INHIB SAVE s ON o @ 
- 002046 000003 6306 04 2051 © ERPRO © AeaeG 0 ag ee a a 
- 002047 700002 7103 00 000 \ TRA eCRCALeePeCR ” 
@: 092050 000036 000003 000 ZERO eA ieo 0 a ee a ee ee ee Sa 
is INHIB RESTORE | : 
ov 1816 * ov 
@« 7 START SWAP OUT PROCESSING < 
se q 002051 1818 SWP FQU x se 
le 002051 600173 2213 00 000 1819 LOX Z29aS5FDSC9ePeSSA *CHECK PROCESS REFERING ANOTHER ie 
@ :: 002052 001616 6012 00010 1870 #&4.1' NZ CONT CONTINUE UNTTL NEXT RELEASE = ~~ @ 
se 092053 003705 7012 00 010 1a?t TSX Z»sRDSPRG *LOAD DSAR ASR PSR REGISTER a 
ve ON2054 Opseo1 Tie Orolo ee SUE Re UB enceeonaenEG ge 
@ : 002055 000000 0112 07 000 1873 NOP ODL *#ALARM OK ia 
ze 092056 000005 2352 07 000 12874 LDA 53DL PE SEy LEVEL TO Be op te ge a ae 
. 0N2057 600043 7553 00 000 1875 STA eSELVL 9 oP eSSA TO AVOID PAY SWAP RECURSIVELY 
@.: 1826 ce SAND: TO AVOID Cac, ABORT? 100 ee 
62 1227 DO'T SET eTSWP IN «STATE TO AVOID LOOP IN eMPOQ3 WHEN . 
ez 1A?8 SMSWAP LOADING ERROR OCCURED  »&»}} ©. ge 
@ 002060 1829 OPEN. DSP 2u@ 
92 002061 1830 eCALlL eMSWAP 61 *GO SWAP OUT 92 
sz | INHTB SAVE9ON | sz 
@ 02061 000003 6306 04 2064 EPPRO  *439$ | 
Ez 0N2042 700002 7103 00 000 TRA eCRCAL sePeCR ez 
zz 0N2043 000555 000001 000 ZERO oMSWAP 91 zz 
@ iz , INHIB RESTORE z2@ 
oz ON20h4 002072 6306 00 010 1831 FPPRO UNDO _ 0z 
‘i 02065 600012 4507 56 000 1832 STPO 0 SSA DePeSSA ‘i 
@: 2066 1833 ~ SHUTe DSP wa I ee ag ee oe ene nner eae eR none oT 
‘i 02067 400000 2352 03 000 1834 LDA eRDEAD sDU | i 
94 002070 600 ore YOO 83 ORSA eoRG 99he " BU N MIS RPRKOCE: ) 63 
@: 092071 000312 7102 00 010 1836 TRA DSCNT1 a® 
i =o, 0020 1837 UNDO EQU * | aici 
- 002072 1838 eCALL  eMSWAP 94 *IF ENABLED» GO UNSWAP IT | _ 
@ ra : INHTB SAVE sON a | 
“ 002072 000003 6306 04 2075 EPPRO *430$ ‘i 
01 ON2073. 700002 7103 00 O00 TRA CREAT 9 oP OCR SOL 
@: 02074 000555 000004 _000 ZERO oMSWAP 94 | ; © 
‘ INHIB. RESTORE | | Q 
i 1839 /* REQUESTER MUST BE POP3 | 
@: ON2075 OOL04Z TIOZ OO O1O  TR40 TRA EN @ 
S S 
= 
© : © 
A 


& Ag ne ; : oo 
ae 1948T 02 12027879 094322 H6600J7e057 GCOS IV 4VX DISPATCHER 791219DTSp PAGE 61 - 
8s 8S 
@: aes FNTER INTO THE PROCESS “e 
9¢ 9S 
ss 002076 1841 SYSCCEFEBNSC 0909480 0%%ox* *SYSTEM DOMAIN ENTRY DESCRIPTER ‘ 
@ .. 0N2076 000000000010 000 VFN 18/*%91/0910/%%43/0,4/ e 
re 0N2077 167400000000 000 VFD 10/480/21924/092/0 7 
zs 1842 % D zg 
@ .; 002100 1843 CCFLG@ BSS eNRPRC *DISPATCHER DATA SAVE AREA x 
0g 1844 * 0s 
- 1845 * START ABORT REQUEST PROCESSING - 
®@ « 1846 * ov @ 
Lv 002104 1847 ABT EQU * Ly 
es 092104 003705 7012 00 O10 1848 &4.}''5X  2eRDSPRG LOAD DSARe ASRe PSR ov 
@ ; 002105 003631 7012 00 010 1849 TSX SVLVLX » SVLVL *SAVE SUB PROCESS or @ 
ns 002106 003225 7052 00 O10 1850 £#3x.}TSX  RETURX@RETOR 
5 002107 000100 2352 03 O00 1851 LDA eTBRTeDU se 
@- 092110 600017 2553 00 000 i852 —ORSA «STATEssPeSSA = %TURN ON IN ABORT BIT 700070 
ty ON2111 600117 6553 00 O00 1853 ERSA oSROST 5 9PeSSA ' 
or oe eee S0ciie  -jAase- OFEN. D5°..  ~ ey  e 
@ « 092113 003536 7012 00 O10 1855 TSX Z»eRSCR /* GET TIME INTERVAL « @ 
- 0927114 700767 0553 1? O00 1856 ASA eCROVHs OUNT T V tae pele 
— 002115 1857 e CALL eMBRTLol 
@ :. INHTB  SAVE®ON 
oe 092115 000003 6306 04 2120 EPPRO *439$ a 
- OA2116 TRA eCR Pe ee 
@ : 092117 000036 000001 _000 ZERO oMBRTLel «® 
ce INHIB RESTORE ae 
ig 002120 1858 ZOPS . le 
@ :: 1859 * oc ® 
6z 1860 * START GEPR PROCESSING ON REQUEST - 
gz 184] * ez 
@ | 002121 1862 GPR EQU * | z@ 
ge 0N21921 002176 7012 00 O10 1863 °° &«;x7TSX  } °£ZeSSCK “*CHECK S/S SIZE BEFORE PAY gg 
ez 002122 003705 7012 00 O10 1864 TSX Z eRDSPRG ¢ 
@ 092123 003631 701z 00 O10 TaeS TSX SVLVLX SUEUR 
ez 092124 003225 7052 00 010 18646 TSX RETLRX»sRETLRM ez 
ze ON2125 186 etG : 
@ .: 0ON2126 600017 2553 00 O00 1848 ORSA e STATE 9 sPeSSA ~#*TURN ON GEPR BIT 
oz 002127 600 186 ERSA e SR es 
6k 002130 1870 OPEN. DSP 7 
@: 002131 1871 eCALL eMGEPRo1 
[Al TNHIB Sib SU Zh 
91 A2Tal 6306 R ¥+ 
@: aoe 700002 7103 00 000 TRA ERCALAP Ss CR 
- Fra C007 NO0Ul 000 en CE eS SS 
we INHTB RESTORE 
@: 2134 R72 R 1D) 
i 1873 * 
01 874 * DEAD REQU AN NT > oF, A NOW 
@ 6 1875 * 
g | 002135 1a76 DEAD EQU % | 
L 092135 002555 7022 00 O10 1877 TSX DACNX sDACNC /* TAKE YT OUT OF EXEC 
@: 092136 600117 2353 00 000 1878 LOA eOROST»ePeSSA 2 =©)©)6huRmIF DEAD) MUST BE 
Ss : 
®@ : 


ier a a a aren i ip etn nme icin emp eal S @ 
bth, ae < . 09 
12487 02 12727779 09,322 H6600U7.057 GCOS IV. 4VX DISPATCHER 791219D1SP PAGE 62 ais 
8S 
FNTER INTO THE PROCESS ® 
9S 
092137 400000 3152 03 000 1879 CANA eRDEAD sDU *x#ENABLED. ss 
092149 001165 6012 00 010 18a0 TNZ ED9 *50« PUT IT OUT - 
0N2141 003360 5542 17 O10 18R1 ST¢l PPTAIL»PN xAND PUT IT AT TAIL TILL DEFROZEN = 
ON2142 OO1162 7102 00 O10 Isa2  . TRA ebDI ®&'PUT IN QUEUE 00007 Tag 
1883 * <@ 
1884 * CRITICAL FAULT OCCURED ON THIS PROCESS AT INTERRUPT ©” Gg 
1885 * OR GEPR REQUESTED FOR SYSTEM I/0 vi 
1886 * ay 
002143 1887 SOsGPS EQU * | re 
0N2143 600117 2353 00 000 larg LDA @ BROS 9 OP ODOM 
002144 100000 3152 03 O00 1889 CANA eRCFLTsDU | *IF S/S OVER FLOW GO TO eMFALT 
092145 002162 6012 00 O10 1890. TNZ CFLT - 
1891 \% 
092146 002176 7012 00 O10 1892 TSX 2SSCK *CHECK S/Z SI7E BEFORE PAY 
02147 003705 7012 00 010 1893 TSX Z#RDSPRG 
092150 003631 7012 00 O10 1894 TSX wi. SSS 
092151 000000 0112 07 000 1895 NoP oDL =) 
092152 040000 2352 03 000 1896 LDA eRGPRSyDU ~~~ ~=*TURN ON .TGPRS BIT AND © ©©™—..—~— a 
002153 600017 2553 00 000 1897 ORSA eSTATEs 9PeSSA *RESET eRGPRS BIT 
092154 600117 6553 00 O00 1898 ERSA EGOOSTHSCS DOR: ee ee ge ge ag eee Dag ee 
002155 1899 OPENe DSP ee 
002156 1900 sCALL. «MGEPR¢) CC pe 
, INHTB SAVEsON 
092156 000003 6306 04 2161 FPPRO K+3eS 
092157 700002 7103 00 000 TRA eCRCAL 9 sPeCR 
092140 000212 000001 000 ZERO GE lg ee ee ee ey owe ene 
Fs : INHIB RESTORE 62 
OA2lal 001042 7102 00 O10 i901 TRA  ENDEVT gg 
1902 *. 
| 002162 1903 CFLT  EOU # | gg 
ON2142 003705 7012 00 O10 194 TSX Z eRDSPRG | ez 
002143 003631 7012 00 010 1905 TSX SVLVLXeSVLVL SAVE CURRENT PROCESS ©}. ©. SS 
02144 O00000 0112 07 000 196 NOP 9 DL : 
0021465 OOOO9 e @ 90 DBA aeRC DU RS RE QU AND V FRO N 
002166 600117 2553 00 000 19n8 ORSA eSRQST 9 oP eSSA INSURE IT GETS SET OFF IN ¢SRQST DISPOP25 
ON2167 GOO1L7T 6553 00 000 1999 °° °&;ERSA  »SRQSTe9PeSSA | *eTSOVF WILL BFE RESET IN eMFALT 
092170 600017 2553 00 000 1910 ORSA eSTATEs oP eSSA 
So Ot. ~~ OLE COP ENG@” Doe ee ee 
002172 1912 e CALL eMFALT 96 *GO CRITICAL FAULT PROCESSING i 
; J T 9 : 91 
092172 000003 6306 04 2175 EPPRO *4+39$ | a ® 
092173 700002 7103 00 000 TRA. “a CRCAL s oPeCR = v1 
092174 000065 000006 000 ZERO eMFALT 96 - 
| | INHTB RESTORE a® 
ON2175 001042 7102 00 010 1913 TRA ENDEVT | - 
1914 * , ol 
1915 % CHECK S/S SIZE LEFT TO USE. IF S/S SIZE 1S LESS THAN 2565 ;@ 
1916 * NN CRITICAI B= ° Dg 
1917 * | L 
—_ 000001 1918 PaPIn SET Pl 


| @ 
09 
02 12927-79 09.322 H6600J572057 GCOS IV 4VX DISPATCHER 791219DISP PAGE 63 > 
FNTER INTO THE PROCESS ~@ 
9S 
002176 1919 SSCK EQU ae 
092176 006024 4716 O07 O00 1970 LDP PePIDsSDePIDsDL te 
092177 100000 2353 17 O00 1921 LDA sPNePePID *ENTRY POINTER ze 
092200 100002 2353 01 000 1922 LDA 2eAUsPePID *95R UPPER zs 
092201 000377 1152 03 000 1923 CMPA 255 eDU *CHECK SIZE | i 
092202 000000 46032 11 000 1974 &4xxzTRO o2 ENOUGH FOR INTERRUPT/REL INC 7000 ‘ 
092203 000007 2352 03 O00 1925 LDA TeDU * 
092204 002100 7552 17 010 19276  £4STA  CCFLGePN £.*SET WE ARE GOING TO EXPAND S75 00 ee 
0N2205 002162 7102 00 O10 1927 TRA CFLT A 


eer eneneee watt enseinentintrtetir ANN SSL Sena eT Res teRN  nnnnnnnsnnshnS  etwnrrnwuSnrer Jor a erectus rans aneobtrrcerftnftntsntnteenvteesnchhshetenteth tt 
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hs 09 
02 12727779 09,322 H6600J7.057 GCOS IV 4VX DISPATCHER 791219D1SP PAGE 64 oad 
eects SUB #=D1SPATCH PROCESSING ~@ 
9¢ 
1929 * SUBD1180 
1930 * COMES HERE WHEN KPX OF ENTRY IN DISPATCH SUBDI190 
1931 * QUEUE IS GREATER THAN MAXIMUM VALUE SUBD1200 be 
1932 * — QUBDT2ZI0 eg 
1933 * ATTEMPT TO SUBeDISPATCH BUT DO NOT EVER SUBD1220 .@ 
1934 * REMOVE ENTRY FROM THE DISPATCH QUEUE SUBD1230 os 
1935 * $UBD1240 6 
1936 * SUBD1250 gy 
1937 * DATA IN PROCESS BEING SUB-DISPATCHED SUBD1260 ss 
1938 %* JBDIZ7C 
1939 % SUBeDISPATCH QUEUE HEADER SUBD1280 
000000 1940 eQGATE BOOL ) GATE WORD | , " 
000001 1941 \eQPROC BOOL 1 MAX # PROC'RSe KPX $UBD1300 - 
000002 1942 eQTOD BOOL 2 —  TaQ=D OF LAST DISPATCH SUBDI3I0,. & & & +&42z—4@ 
000003 1943 «QQTM BOOL 3 DISPATCH QUANTUM SUBD1320 3 
000004 1944 eQTDCT BOOL 4 COUNT OF DISPATCHES  .. ®;\SUBDTI330—°°™,, 
000005 1945 .QAPTM BOOL 5 ACCUMULATED DISPATCH TIME SUBD1340 « ® 
— 9000060©=—~—C<C GH CBSY = ©BOOL) O6tt”~”~”CUNSUCCESSFUL SHUT ATTEMPTS = =————————sSS BT SSO be 
| 000007 1947 .QRHT BOOL 7 READY: HEADs TALI. SUBD1360 He 
— 00010060¢©—~«~2g@48 .OFHT BOOL 8610 ~=©=)——t—é<“‘i‘;O «CATS EAD TATEOUUUU!U!U!U!U!U!W!WUWUW!W!”!”!”!O”~”~”~”~”:CUSUBD ST oe 
000011 1949 sQAHT BOOL ie AVAILABLE! HEADe (UNUSED) 5UBD1380 ge 
000012 1950 .QHTFM BOOL 12 | 7 be 
000013 1951 .sQORCT BOOL 13 LENGTH OF READY CHAIN SUBD1400 «® 
000014 1952 .ORCL BOOL 14 READY UPPER LIMITs THRESHOLD £SUBDI4I0 = «% 
1953 * SUBD1420 le 
OO GG HR®!”™~*C«SURReDISPATCH QUEUE ENTRY ©©”. 0)0©0©)©0 SUBDT4S30700 =n & 
000000 1955 .QORG BOOL @) ORIGIN SUBD1440 éz 
ODO 1956 .QOPT BOOL. OBI? & HEX OPTION OTSPOU6K 
000000 1957 .QFST BOL 0 FAULT STATUS SUBD1450 z® 
000001 1958 .QPTR BOOL 1 — PTR TO NEXT ENTRY ©6SUBDYT4600Q0—~—C =r 
000001 1959 .QUST BONL l USER INDEX SUBD1470 cS 
— s 000002 ~=~—~—C~SXSHO CW REG = BOOL = 2 REGISTER STORE ©. ©6©S6UBDYT48006€CO@@0@0 0} hur @® 
000002 1961 eQWSN BOOL 2 LOGICAL WeSe# SUBD1490 - 
—  OD00O0B 1942 BATRA BONE 6LUSlUmU™”™~“t;‘si‘CSOC RR: CREE WORDS SUBD 0 zz 
| 000003 1963 .QS1Z BOOL 3 SIZE SUBD1510 
—  O00004 °° 1944 .QEIS BOOL 4  &4'SLAREG CCETS STORE)" © SUBDIS20000 Ge 
000005 1965 eQTCT ROOL 5 "RET L(Ic&! STORE)" $UBD1530 
000006 1966 .QDTM BNOL 6 DISPATCH TIME © —“SUBDIS4Q 
000007 1967 eQWSR BOOL 7 TEMPORARY STORAGE SUBD1550 i 
968 * Tse 
0N2206 777777777775 000 19469 QODCT DEC =3 SUB=DISPATCH COUNTER SUBD1570 
002207 000000000003 000 1970 aDCR BEC 3  QDCT REFRESHER... ~“SUBDTS8Q 0, 
= 1971 * | | SUBD1590 
092210 O10142 51 000 1972 TIMBG OCT OLO1L4223. = MULTIPLIER srelereleey as 
- 1973 * SUBD1600 7 
DAZ211 OVODOD0000E 000° 1974 QHEXON O¢ E AEX MODE OF TN PO00G ete a 
092212 000000000061 000 1975 QHEXOF OCT 6} HEX MODE OPTION OFF DISPO06x «® 
IG DT SPOUGX OOS 
002213 1977 SBDSP NULL SUBD1610 
02213 002206 2342 00 O10 1978 SIN OD ET CHECK SUB= DISPATCH COUNTER” Susbi6z0-— 2 
Sg 
ae 
. @ 
2 
7 — 2 eee ee 


12?48T 02 
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SUBe DISPATCH PROCESSING <@ 
0N2214 002221 6042 00 010 1979 TMY SBDA STILL NEGATIVEs SO WE CAN SUB=DISP SUBD1630 
02215 002207 3352 00 010 190 LCA QDCR POSITIVE, GIVF OTHERS A CHANCE SUuBD1640 | =. 
0N2216 002206 7552 00 O10 19a1 STA apcT AFTER WE REFRESH THE COUNTER SUBD1650 és 
0N2217 300037 2263 16 000 19R2 LHX KPX eDePRO KPAX IP ePRG AECK MAIN QUEUF UBDI660 m 
0N2220 001435 6012 00 O10 1983 TNZ SLCT5 GO TRY OTHER WHEN ONE EXISTS SUBD1670 a ) 
— — O2221—~<Ct*é‘z9RKG SBMA ©=©NULE)©™©™©™~CC~””.”.—DV}V.. SU DISPOS TURN OR THERE ARE NO OTHERS SUBDI680 = = gg 
0N222?1 002206 0542 00 O10 195 AOS aDcT Apb TO COUNTER FOR THIS CHANCE $UBD1690 ne 
002222 300017 7253 00 000 1986... »+;+}LXL5 DeSQUEeePePRQ XS = # PROCESSES FOR SUBeDISP  SUBDIT00 ~~~, 
002223 300017 2203 00 000 1987 SBDC  LDxXO DeSQUEesPePRQ GET NEXT PROCESS ENTRY SUBD1710 iv 
0N2224 300025 2e1 0 000 1988 LAX1 DeSOPT+1 0 9PePR PDA ¢ TBD ‘ a 
0022725 300017 7413 00 000 1989 STX1 DeSQUEsePePRQ X1 = PTR TO TABLE ENTRY 3UBD1730 ov @ 
0922276 300024 2353 11 000 19906 LDA De SQOPT 91 o9PePRG KPX QUEUE UBD I m 
0N2227 400000 2203 01 000 1991 LDXO 0 sAUsPePST GET STATUS OF PROCESS SUBDI750 


092230 400000 3002 03 000 1992 CANXO  PS.S5WPeDU CHECK TQ SEE tf IN CORE  SUBDI7T60 i ©! 


7078 


02231 002240 6012 00 010 1993 TNZ SBOD YES» TRY TO USE IT SUBD1770 | 

ON2232 O00 1252 0 000 1994 SBDB  SBLX 2DU 10h . PRO UBDI7SEU re eras 

0N2233 002223 6012 00 010 1995 TN2 SBDC REPEAT IF MORE PROCESSES IN TABLE $UBD1790 « @ 

092234 006145 4766 07 000 1996 LOP PeSSAeSDe »DL MU R ORE PeSSA OING BACK UBDI800 ore Fae 

092235 700270 2203 00 000 1997 LOXO eCRMKPesPeCR NOTHING TO SUBB*DISP TO SUBD1810 i 

002236 000001 6262 10 000 1998 ~~ FAX  KPXels0 SOT xX W/ + . ge 

0N2237 001430 7102 00 010 1999 | TRA XeSLCT AND RETURN TO MAIN DISPATCH puepieze - 

02240 3 0 06 2000 SBDD ANA =LebuU UB=DISP PROCESS T COR UBDT ES: _ maccacits 

092241 000000 6262 01 000 2001 FAX KPXs0sAU LOAD KPX WITH ITS VALUE SUBD1850 «@ 

0N2242 000002 7352 00 000 20n2 ALS 2 D CHECK 1 READY QU ag 

092243 100001 7727 01 O00 2003 LDWS LeAUsPePID LOAD ITS WSR*S SUBD1870 

0N2244 006145 4756 OT 000 2004 SAD-NP LDP _PaSSAySD¥SSAVDL_ (FOR MPs THTS TS TRA STC SUBDTBED oe @ 

092245 000200 2352 07 000 2005 LDA aissass SUBD1890 bs 

002246 600 23 VO 000 O06 CANA eORQST eek ‘ AECK TO -ACR ems} KRED UBDIVUU : | 
092247 000003 6002 04 000 20n7 TZF 3e1C «NOs NOT SET BY INTERRUPT SUBD1910 

0022590 600117 6553 00 000 2008 = ERSA ~~ ,SROST+9P,5SA YES» RESET FLAG FIR 

09225] 000000 0116 00 000 20n9 CCAC CLEAR CACHE *** ALWAYS IF Mp $UBD1930 

Onig262” Ode20e TOS OT O00 2040 EOP POs Dera PO el ucckie = =6=6COCOt*é~“‘Ce*;!;#*!*#*C QR! 

092253 000012 6767 00 000 2011 LOD P6ePHe USL 9P0 Po = USER LINKAGE 00000020 - 

0N2254 600000 676 O0 O00 O12 LOD POHeUL e ‘exis S R MENT COCOC00 TO ovens Pa 

0N2255 300024 7223 11 000 2013 LXL2 DeSOPTr1lsPe PRO X2 = Pisuacorse HEADER) 5UBD1990 

092256 690000 2145 12 000 2014 ZNC eQGATEadshe AU ON SUBeDISP QUEL UBD2Z000 

092257 002264 6012 00 010 2015 TNZ SBNL 00000020 

092260 600006 0543 12 000 2016 AOS eQRSY92eP6 ~~ COUNT TIMES FOUND SHUT 

092261 000000 7742 00 000 2017 GTB DELAY A LITTLE 00000020 

0226 B00000 000 : SZN TOGATEs2eret TON J-SsAUT— OOOO 

092263 002232 6002 00 O10 2019 TZF SBNB . DON'T ee LONGER» TRY ANOTHER 00000020 

1226 SRNL LL 

ON2244 600007 2233 12 000 2001 LOX3 eQRHT929P6 X3 = HEAD OF REAny CHAIN SUBD2040 

0N226 002313 6002 00 O10 2022 TZE BN « NOTHING TO DO SUBD2Z050 

092266 600002 2353 13 000 2023 LDA eQWSNo3eP6 00000020 

ON2 26 0 000 0 ANA =LeD JOOUUU EU 

092270 002310 6002 00 010 2025 TZE SBNJ ¢ EXTENDED MEMORY NOT IN USE HERE 00000020 

002271 000 F 0 000 0276 ANA =Q777000eD AE CR OR KNOWN ReWeSe IN QUEU ejelejelelepy-ae 

0N2272 002277 6002 00 010 2027 T7E SBDK # ReWede NOT KNOWN BY PARENT 00000020 

ON227 0000 clemmmmerere ARC. 7 He ReWede VEN JEEVES 00000020 
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8s 
SUBeF DISPATCH PROCESSING i@ 
9S 
0N2274 600007 7553 13 000 2029 STA eQWSR3eP6 SO LOAD WSR*S DIRECTLY 00000020 
0N2275 600007 7727 13 000 2030 LOWS eQWSR93eP6 W/O CALLING <MEXTM ~ OONZO 
092276 002310 7102 00 010 2031 TRA SBNJ 00000020 ee 
} 002277 2032 SRDK NULL mae . ) 
0N2277 000052 6757 00 O00 2033 LDN P5ePHeRWSesPO LOAD WSR'S 407 FROM PARENT SUBD2052 
002300 500001 7727 00 000 2034 LOWS lewP5 VALUES IN CONTROL AREA .® ©6SUBD2Z0540~— - 
092301 600002 7203 13 000 2035 LXLO eQWSN®39P6 LET*S SEE IF WE CAN GET ADDRESSABILITy  SuUBD2060 
092302 000000 6352 10 000 2036 EAA 030 TO THE TARGET WeSe FOR THE SUB@DISP SUBD2Z070 == 
09233 200052 6757 00 000 2037 LOD PeSSLeeKLSLVe ePeKL SUBD2080 Ly 
002304 £2038 EXTMEM ACCLWS - sUBDeU90 
092304 500070 4707 00 000 LDDO DP.EMEs sPeSSL a) 
002305 | ICLIMB eDROo%eEX9EAXO 
092305 000001713400 000 \ VED LB/aEXsO9/TI3eL/1lel/Ovl/Oe6/Me : - 
092306 000000601770 000 | VFD 1/0*9/008/Osl/aNolJeOs2/Ne2/Oel2/eDRO ©. | 
002307 002313 7102 00 010 2039 TRA SBDF « ACCESS DENIEDse GO TO NEXT SUBD2100 
002310 2040 SRBNJ NULL 
0N2310 300025 7203 11 000 2041 LXLO DeaSQPT+lelePePRQ ¥# PROCESSORS HFRE SUBD2110 
092311 600001 1003 12 000 2n42 CMPXO eOPROCs2eP6  #3xVS MAX PROCTRS ALLOWED HERE SUBD2Z120 sg 
002312 002315 6022 00 O10 2043 TNC SBDE # CAN SUB#DISP SUBD2130 
092313 600000 7503 12. 000 2044 SBDF  STC2 eQGATEs29P6 MAX PROC*RS HERE. S80 GO ®©SUBD2I40 
092314 002232 7102 00 O10 2045 TRA SBNB ON TO THE NEXT PROCESS SUBD2150 gs 
092315 300025 0543 Il 000 2046 SBDE AOS DeSOPT+LslePePRG ADD TO COUNT OF PROC'RS HER UBDZI6U : 
0N2316 300020 7413 17 O00 2047 STX1 DeSQUE+1Le79PePRO AND REMEMBER WHERE PROC!fR IS SUBD2170 «@ 
002317 600001 2213 13 000 2048 LNX1 SQPTRe39P6. OO SBDCLBO 
092320 002322 6012 00 010 2049 TNZ SBDG * MORE IN READY CHAIN SUBD2190 
0923271 600007 4413 12 000 2050 SXL1 eQRHT92eP6 LAST ENTRY: ZERO THE TATL SUBDZ200 —— ~@ 
092322 600007 7413 12 000 2051 SBDG STX1 eQRHT 92 9P6 NEw HEAD OF READY CHAIN SUBD2210 6z 
~ ON2323 600013 2213 12 000 2052 LDXL. @ ORO O09 PO UBD E220 0 ~—O—O~™O 8g 
0N2324 000001 1212 03 O00 2053 SBLX1 LeDU SUBD2230 n® 
002325 600013 7413 12 000 2054 STX1 eORCTe29P6 4AT 3 , gg 
092326 600000 7503 12 000 2055 STC2 eQGATE92eP6 OPEN GATE ON USER QUEUE SUBD2250 ee 


092327 002331 6002 00 O10 2056 — 72F «2 (fF QUEUE NOT EMPTY AND ITF MULTI@PROCe SUBD2260  —  w® 
092330 000001 0112 07 O00 2057 1.CLF8& NOP MPFNB=MPBASE 9DL. TRY TO START ANOTHER PROCIR SUBD2270 ey 

002331 2058 OPEN. PST SUBDZ2Z80 zz 

| 002332 2059 OPEN. DSP SUBD2290 z® 
092333 000000 2202 03 000 2060 7 LDXQ OU CUBS SON = 
092334 600001 7403 13 000 2061 STXO eQPTR23eP6 RESET PTR WITHIN QUEUE SUBD2310 6t 

092335 006070 4736 07 O00 2042 LDP P3eSDeSDPeDL  P3 = SUB-DISP LKGs TYPE = Il  4£SUBD2320 °& —  “4@ 
092336 006070 4746 07 O00 2043 LDP P4eSDeSDP»DL SUBD2330 A 
ON2337 OOLT61 4746 0 500 2064 LOP PaseClYPoen PG = SUB-DISP LkKGe TYPE = 0 JBD2Z340 = ot 

092340 000000 6362 17 000 2065 SBDH FAQ O+sPN (ADDRESS USED TO LOAD DSAR) SUBD2350 a | 
092341 000002 7362 00 000 2046 OLS 2 BDSG e=s 
0N2342 600003 2203 13 000 2067 LDXO eQTRA839P6 INTTe ENRTY DESC W/ TRA ADDRESS SUBD2370 a 

092343 400004 7403 02 000 2068 STXO SeENT*QUSPG } }=—r—~—— SUBD SS B0 er 
092344 600003 7203 13 000 2049 LXLO 2Q51Z939P6 | 5UBD2390 rT 


092345 O00001 1202 00 


092346 400006 7403 02 O00 2071 STXO $e1SR2QU9P4 INI Te SUBeDISP ISR SUBD2410 

002347 600000 2353 13° 000 2072 LDA eQORGs3 9P6 | SUBD2420 ee 
0N2350 002212 6742 04 O10 2073 LCPR QHF XOF 904 GUESS HEX NOT WANTED & SET OFF DISPO06xX 

092351 0090001 3152 03 000 2074 CANA 1sDU OW K FQ , 


: 
& 


Oo = N ial zs m wo ~ [ve] 
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SUB=#*DISPATCH PROCESSING a® 
092352 000002 6002 04 000 2075 T2F 2eIC DISPQ06x 
092353 OO02211 6742 04 010 2076 LCPR QHEXON+04. HEX REQUESTED. TURN IT ON DISPO06X ae 
092354 777770 3752 03 O00 2077 ANA 207777709DU MASK OFFOPTION FROM ORIGIN DISPOoex &s 
092355 000020 7712 00 000 2078 ARL. 16 


092356 006204 4706 07 000 2079 LnOP POseSDePSHeDL $UBD2450 
092357 000012 6707 00 000 20R0 LDD POePHeUSLsePO ©}©™©@@'.. OO ———””—CP'UBHZ4OQ..~O~C~C 
092360 001761 4706 07 000 2081 LDP POseeCTYPsDL SUBD2470 
092341 000001 0353 00 000 2na2 ADLA UL alSReleePO rrr © 00 | 0.1010 Dy 0 
092362 400007 7553 02 000 2083 STA Se TSRel eQleP4 SUBD2490 re 
092343 300006 6717 O02 O00 2084 LOD PT eel oReQuer PT = SUB=DISPATCH R UBDZ500 
092344 400000 7707 00 O00 2085 LDAS SeAPRo PG LOAD SPECIAL REGISTERS SUBD2510 
092365 400000 7717 00 000 20R6 LOPS SeAPR99PS 0 SBD 
0N2366 400002 5717 00 O00 2087 LDDSD ere ee SUBD2530 
092347 002340 1706 00 O10 2088 LDODSA SBDH SUBD2540 
092370 200064 7737 37 000 2089 LOSS eKLSDS oPN* oP eKL LOAD SSR FOR SUB=DISP BY PROCIR # SUBD2550 _ 
092371 200044 7463 17 O00 2090 STX6 eKLPRGe Tok fr PROCTER A OR SUB=DISP UBD2Z560 Se 
092372 200044 4433 17 O00 2091 SXL3 KL PRG+7ePeKL | SUBD2570 
092373 300004 6727 02 000 2092 Lon P2 eSaENT eQUue : Y DESC TO , Sos See 
092374 204020 3362 07 O00 2093 Lca =0204020eDL S$UBD2590 
092375 600000 3563 13 000 2094 ANSQ eOFST930P6. CLEAR FAULT STATUS BITS  ‘SUBD2600 0° x 
092376 003536 7012 00 010 2095 TSX Z»RSCR SUBD2610 = 
ON2377 OO767 O 500 2096 ASA eCROVHsPNePeCR DOA TG TIL NOW UBDZ620 | ve 
002400 600004 0543 12 000 2097 AOS eQTDCTs29P6 COUNT NUMBER OF SUBDISPATCHES 00000020 «@ 
092401 700106 2363 00 000 2098 Loa eCRDAT#+20ePeCR OGIO Le 
002402 700105 0363 00 000 2099 ANLa eCRDAT#l9ePeCR 00000020 = 
072403 002210 4022 00 O10 2100 MPyY TIMBG 00000020 «®@ 
092404 000036 7732 00 000 2101 LRL 30 00000020 62 
ON240 60000 oere @ fe) eQTODed ako UR DR “0-0 VBD6 OFU =" 
002406 600003 2363 12 000 2103 LDQ eQQTM92+P6 | SUBD2650 a) 
ON2407 OD00T4 T7362 00 O00 2104 QL SDL OCD 
092410 003533 7012 00 010 2105 TSX ZsLOT LOAD TIMER SUBD2670 ‘ 
002411 600000 0 000 2106 CREG Oe39Pé PTCK UP DISPATCH DATA FROM QUEUE? UBDZ680 rw @® 
092412 100000 7573 ue 000 2107 STAQ Os6ePl STORE *LAREGeRET IN SPACE GIVENs SUBD2690 ez 
O0 41 VOOLO D YOO iy: }e BeAU ak R OAD TIDSTN VT OUBD 00 Rs ae 
092414 100000 0733 7. 000 2109 LREG Os4ePl RELOAD REGISTERS» AND SUBD2710 2@ 
. ONZ41 2110 ICLIMB eODR+RrPacees AV MB TO "YLAREGeK VN OLAV IW ¢ 0z 
092415 000000713400 000 VEN be Oe eee Sedat s 
002416 O | : 709 3 al7o ge ee ee ee 
0N2417 2111 eCALL eMBRT1 93 CIN CASE PROCESS. CLIMBS BACK) SUBD2730 — ‘A 
INHTB SAVE ON ot 
0N2417 000003 6306 04 2422 EPPRO K+ 3eHh ¢ 
092490 700002 7103 00 O00 TRA CREAT 9 9 CR 
002421 000036 000003 000 ZERO eMBRT1 3 


INHIB RESTORE aS aR SO 


@» oe teh fl a aaa aa 
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8s 
@ NTSCONECT SLAVE PROCESS AND THE ACCONT 
9S 9S 
gs 2113 % ss 
@:: : ieee” até * THIS ROUTINE SWITCHES SLVE PROCESS TO PROCESSOR PROCESS. = 
es 2115 * CHARGES SLAVE PROCESS ACCOUNTING. IF THE PROCESS IS SWAP 3 
ze 2116 * UNSWAP® GEPRe D @) De 
@. 2117 * GELBAR IS CANCELED HERE IF EFFECT 
os 2118 * ; os 
6 2119 * PRFCAL PeCRe PeSSA® PNo KPX a 
e» 2120 * PRECALL PePRO® PeKLe PeCRe PeSSAe PNe KOK 
uv 2121 % SHUT m= eSCRDSP ie 
ov 2122 % CALLING TSX DACNXODACN 
@; 2123 * ov ® 
vy 2124 %* POST LOST AQeZ XO PO vy 
ey 2125 \% LOADED © PeRMSs PeSSAs PHeSPXe PaPIDs PePST A 
@: 2126 * P.55R eae eee aie Ree ee tar ae 
ly 2127 * . ly 
ov aL 10010) 0) SN OT: PS D0) | hc 
@ «: 000001 —- 2129 P.SSR_ SET Pl «@ 
8 000000 2130 PePDP SET PO ee 
ae 000000 2131 PeSPX SET PO ts 
@: 000000 2132 TeSSR SET PO «@ 
se 000001 2133 XPTR SET 1 se 
ve 002422 2134 DACN  EQU * ve 
@« 092422 000401 3352 07 000 2135 LCA eRTOTM41 oDL «® 
ze On Rega “GOUT te SP COU ak, Se Ce eae RGR AR ONO CGN rae 
te 002424 2137 DACND  £QU 
@ 092424 003536 7012 00 010 2138 TSX 7<RSCR OO 7* GET CLOCK TILL NOW SINCE DISPATCH -® 
62 092425 700066 7173 a 000 2139 1eDACN XED eCRNSG+299PeCR /* CHECK NOe OF SHUT GATE ey 
ez 092476 000002 6002 00 2140 TZF 2e1c i NE = « P 92 
@ er 2141 ZOP 2 NOT ONE = STOP. SYSTEM 2® 
92 2142 XO« PO WILL LO . 92 
sz 2143 IF PRODUCTION MODE IeDACN WILL. BE RESET 6 
@ 002430 2144 DACNR EOU % x ® 
ez 2145 ENTRY FOR EP 9 FOR SPECIAL ACCOUNTING INTERFACE ez 
zz 2146 ag 
@. 0N2430 006133 4726 07 000 5147 LDP PeKLeSDeKL DL *PREPARE REGISTERS : i ) 
oz 002431 006042 4736 07 000 2148 LDP Pe PRO*SDePROODL oz 
61 092432 200044 7203 17 000 2149 LXLO eKLPRGePNePeKL PTR TO ENTRY IF SUB*DISP SUBD3760 4 
@. 092433 200044 4503 17 000 2150 £#4xSTZ  eKLPRGePNePeKL || *SHOW PROCESSOR PROCESS RUNNIMG ==  wa® 
“a 092434 002567 6012 00 010 2151 TNZ DACO +  SUB=DISPATCH ENTRY SUBD3780 
91 O24 BU0I16 L527 00 O00 2152 T? ——TSHRSVe eh e SOA SAVE OPTION Z FOR TRE PRO 
@: 092436 204000 1726 07 000 2153 Lno SYSOR ®DL AND LOAD ‘OPTION FOR SYSTEM 
v1 0N2437 004200 6342 OT 000 2154 &.}-DT  SYSIR»DL — @) 
et . 002440 2155 SHUT. PST 
@. 092441 100000 2362 03 000 2156 LDQ PSaEXC+sDU *SHOW THIS PROCESS NOT EXECUTING = 
i 092442 400000 6563 16 000 2157 ERSO eKPXoPePST 
ol 4 158 ENe 
@: 092444 600106 0553 00 000 2159 ASA eSLPRT 9 9PeSSA *LOCAL PROCESSOR TIME | 
é DORE O20 OU eee Oe ee |e eeenene RITE Stove RE eee 
‘ 092446 154020 3162 03 000 2161. CANO TeSYSeDU 
@: 0N2447 002454 6012 00 O10 2142 ™TNZ OCNI ¥ACCOUNT ITT AS OVERHEAD 70000 ;@ 
S 
@: 7 


S 
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@ 
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Se eG, 
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e 
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002441 


09.322 


100000 3762 03 


000 


H6600U72057 


NTSCONECT SLAVE PROCESS AND THE ACCONT 


2174 


GCOS IV 


ANQ 


4VX 


eRCFLT sDU 


002462 600117 6563 O00 000 2175 ERSQ aSROSTesPeSSA ey 
092463 001764 4716 07 000 TEL LOP P.aSSReeS5SReDL = XLOAD SSR TO ACCESS DATA  ©°©3§©— ny 


DISPATCHER 


791219DTSP PAGE 69 


0N2450 600152 0553 00 000 2163 ASA eSPRT9eP,SSA *NQ THEN HIS ACCOUNT 

0N245} 000000 5312 00 000 2144 NEG 

002452 600003 0553 00 000 2145 ASA eSALT99P,SSA *DECREMENT TIME LIMIT a 

092463 002455 7102 00 O10 2146 TRA DONA 
nasa 300 767 eee pag ee OU ENE —— ; 

02454 700767 0553 17 000 2168 ASA » CROVHoPNePeCR aera 

002455 = 2149 PCcN2 EQU * . 6y 

092455 040000 3762 07 000 2170 ANQ e7LBAReDL ¥*IS GELBaR EFFEC? a 

0N2456 002526 6002 00 010 2171 TZE DCN3 *NO a 

002457 600017 6563 00 000 2172 ERSO ° % GELBAR B ie 

092460 600117 2363 00 000 2173 LDQ eSRQST9ePeSSA *IF GELBAR EFFFCTs NO NEED TO @ 


*EXTEND S/S AT OVER FLOW 


v 


092464 001761 4716 07 O00 2177 LDP P.SSReeCTYPsDL *CHENGE TYPE 
0924465 600174 7737 00 000 2178 LOSS 0 555Re oP e SOP RCHAN 35k AT MP “LBAR | Pe 
002466 006204 4706 07 000 2179 LDP P.SPX9SDePSHsDL *ACCESS TO SLAVE PREFIX «@ 
092467 000006 6707 00 000 2180 LOD P.SPXePH. 99Pe ——> 
092470 000022 3353 00 O00 2128} LCA 1829PeSPX *TIMER SET BY FAULT GELBAR | vi 
092471 100057 0353 00 000 2182 ADLA eWREGS+ 799 ®CURRENT TIMER TAN © 
092472 000014 7312 00 O00 2183 ARS 12 ze 
002473 Q0Q0 oF} 00 ~~ 000 1 R4 ASA 29Pe oP RACCUMULATE TIME WITHIN BAR ne 
092474 100004 2353 00 000 2185 LDA eWICI9ePeSSR *GET IC6&I «® 
002475 000022 7553 00 000 2186 TA 189 9Pe RSTO N PR X - 
0N2476 000023 6352 00 000 2187 EAA eXGBFV . 
ON2477 100004 755: 0 2188 A eWICIoePe oe 
ON25N0 600242 2373 00 000 21289 LDAQ 0 SISRo9Pe2SSA /* MOVE SAVED EXEC REGISTER — 
002501 100014 00-2190 STAQ eWLSReePe i 
0N2502 600240 2373 00 000 2191 LNAO eSASRoaP.SSA ® 
092503 100012 7573 00 000 2192 STAQ eWASRSNPeOoR> °° - 0 ee ee ae ey 
092504 600236 2373 00 000 2193 LDAQ eSTSReePeSSA _ 
092505 100010 7573 00 000 2194 STAQ eWISReePeSSR _ gg 
092506 000000 6212 00 000 2195 EAX XPTRs0 re 
002510 100030 7573 11 000 2197 STAQ eWDRO®XPTRsPeSSR /* COPY ISR TO ALL ODRS -@ 
092511 600174 2 00 000 2198 LDAG 0 555Re oP eS K CHECK IF CILYMB WAS DON sa aciaacaae 
0N2512 600174 0517 00 000 2199 STN PeSSRoeSSSRe9PeSSA IN GELBAR 6 
092513 O00001 6752 O07 000 22n0 FRA Tepl ~~ a ® 
092514 600174 1173 00 000 2201 CMPAQ  SSSR99PeSSA i 

oJ 1 00 6 6002 0 O10 202 I N NOe : 

092516 600174 7537 00 000 2203 STSS oSSSR99P_.SSA SAVE OLD SSR 00000020 

O02517 OOTTE4 4706 OT 000 2704 LDR Te SSR SSR 

092520 001761 4706 07 000 2205 LDP TeSSRoeCTYPsDL 

ON2571 OOOOTE 00 000 2706 DAQ eWPSReeTeDdk ° MB WAS DON 

0N2522 100016 7573 00 000 22n7 STAQ eWPSRoeP.5SSR | | 

€ o: QOO LOO Gre U0 JOU /7 OR ML ke r UY S UR PU f aT Vid WF 

092524 100000 0004 00 000 22709 ADSC9 9964%4eP,S55R LAST IN GELBAR FRAME 

0N2525 O00000 0004 00 000 22710 ADSCS 9 96484 4Te S9R RAME OF MP BAR i 

| 002526 2211 PCN3 EQU * 

602576 0000 Oll2 O07 O00 22912 T.DCNO NOP MPCCRT=MPBASE eD qP = TRA MPCCR DO00NN2N 


1248T O? 
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8S 
— NTSCONECT SLAVE PROCESS AND THE ACCONT _ 
9S 
0N2527 006036 4706 07 000 2213 LDP P.PDPsSDePDPsDL ss 
092530 000000 2353 16 O00 22914 LDA oKPX2PePDP | 1 @ 
092531 002000 3152 03 000 2215 CANA ZINTRP «DU /* IF INTERRUPTED IN SYSTEMs sé 
02532 002545 6012 00 O10 2716 — TN2. XeWCNs SKIP COUNT DOWN. 3g 
092533 001400 3152 03 000 2217 CANA ZEXCODsDU /* CHECK CURRENT EXEC PRIORITY ~@ 
002534 002540 6002 00 O10 2918 TZF DCN3A ZERO = RESET os 
092535 000400 1352 03 O00 2219 SBLA ZEXCOD/3 »DU NON#=ZERO » COUNT DOWN TALLY By 
0925326 000000 7553 16 000 2770 STA oKPXePePDP o @ 
002537 002543 7102 00 010 2201 TRA DCN3B ty 


002540 


2722 DCN3A 


EQU 


* 


/* ORIGIN CODF IS IN LOWER 


See | = nea  .eaee tte hak “Eat °° ee es ee a te ees emer epee ae Stee iy ete ys ee age eg ee ee ee 
0N2540 000022 7352 00 O00 27273 ALS 18 3 | 
002541 001400 3752 03 000 22294 ANA ZEXCOD eDU D RESF P Y es 


oY 


«o ® 


002542 000000 2553 16 000 2775) ORSA sKPXePePDP TALLY COUNT 8 
002543 2226 DCN3B EQU * a @ 
002543 000000 0112 07 O00 2727 XeDCN1 NOP eDL *IF PRIORITY OPTION “ 
002544 000000 Oli2 07 000 2298 XeNCN2 NOP ob RGO CHECK PRIORITY 
002545 2229 X.DCN3 EQU x « @ 
092545 001764 4716 07 000 2730 LDP Pe55Ree55ReDL SAVE WSR 4@7 IN WORD 1 OF S/S EXTM52Z00 se 
002546 001761 4716 07 O00 22741 LoOP P.SSReCTYP SDL FRAME IN CASE OF EXTENDED EXTM5210 
0N2547 100001 7527 00 000 2732 STWS 190P.55R MEMORY PROGRAM ~EXTM5220 @ 
092550 006024 4716 07 000 2233 LP P.PIDsSDePIDeDL zs 
002551 100000 2353 IT 0002934 LDA PN Pe PID *CLEAR POINTER 
0n2552 100002 7537 01 000 2235 STSS 2sAUsPePID *SAVE SSR IN PID -@ 
092553 200016 7737 37 000 22736 LDSS SKLKP5SoPN*¥®ePeKL  *NOW PROCESSOR PROCESS RUN 
092554 000000 7102 12 000 2237 TRA *DACNX *#RETURN 
2238 nnn STG AU TS EXPECTED BY CALLER EB 92 @ 
2239 * 6z 
ss 9940 %  5TOP REDISPATCHINGs AND RESTORE PROCESSOR STATUS gg 
2241 * THE PROCESS IS UNDISPATCHABLE Now 2z® 
2242 * 92 
| 002555 2243 DACNC EQU * | ee 
092555 006133 4726 07 O00 2244 LP PokLeSDeKL oD RELOAD KL* NOT LOADED ON SOME PATH VOU000TN 
ON2556 200044 4503 17 000 2745 STZ aKLPRGsPNoP.KL /* SET TO SHOW PROCESSOR PROCESS RUNNY | 2 
002557 204000 1726 07 000 20946 Log SYSOR*DL gg 
092560 004200 6342 07 O00 2247 LOT SYSIReDL 
Sees oe 002561 2248 SHUT. PST a 
092542 100000 2362 03 000 2249 LDA PS.EXCsDU /* RESET EXC FLAG a 
002563 400000 6563 16 000 22750 4ERSQ  oKPXeP.PST 
002564 2251 OPFNe PST i 
ON2D5A 200 ° ote 2 5¢ : aK LK FO ORN® OF of PS VAL > 
092566 000000 7102 12 000 2253 TRA sDACNX 
2255 * DO ACCOUNTING FOR SUB=DISPATCHING SUBD3810 
= 2956 * PUT DATA BACK FO 
2257 * 5UBD3830 :. 
Ot : a 5H ACG q KO = SUB=DISP TTRY POINTER TBDIE40 
0N2547 001764 4706 07 O00 2259 LDP POeeSSReDL $UBD3850 
ON2570 000010 6f]1 V0 900 2260 LOD PleeW Re ehO Pl = UBD PAT MEN UBLD28600 
092571 001761 4706 07 O00 2241 LoP POseCTYPsDL PO = S/S FRAME AS TYPE 0 SUBD3870 
ON2572. 2000L6 T73 O00 2262 Mp) eKLKPSePN¥ePeKL PROC/7PROC S/S == PRO WITCH UBD3880 
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092573 300020 2213 17 000 2263 LOX] De SQUE+1 ePNoP.PROQ SUBD3890 

092574 300024 7213 11 000 2264 LXL1 DeSOPTelePePRQ Xl = OFFSET TO HEADER SUBD3900 Se 
0N2575 006204 4736 07 O00 2265 LOP P3eSDePSHeDL SUBD3910 ee 
0N2576 300012 673 00 2266 LON 39PH. 99 39% 

092577 300000 6737 00 000 2267 LOD P3eULeISReeP3 P3 = USER SEGMENT 00000070 

092600 000070 7533 00 000 2768 SRFG eWTEMP 4 9 BD: gg 
09260; 300006 0553 10 000 22469 ASA eQDTM209P3 COMES W/ DELTA IN ARs ACCUMULATE SUBD3950 ‘és 


092602 300005 0553 11 000 2770 ASA 2QA IME & FOR QUE 5 = 
0N26N3 300005 2223 10 000 271 LDX2 eQICIs0sP3 Loc OF Ica! SUBD3970 
002604 000004 2363 00 000 2772 Lda eWICl* PO : : : 3 

002605 100000 7563 12 000 2273 STO Os2ePh MOVE IC&I FROM S/S TO PIECE SUBD3990 

0N26N6 300004 2223 10 000 22774 LDX2 eQEISs0s . rC 

0N2607 100000 6367 12 000 2275 EPPR P6sOs2sP1 | SUBD4010 

092610 000100 1007 00 000 2276 MLR (1) e(T) MOVE ADDR REGS FROM S/ JBD4020 

0N2611 000020 0000 40 000 2277 ADSC9 .WPTROs0932eP0 SUBD4030 

ON2612 600000 0000 40 000 2778 ADSC9 Oss 

092613 000100 1007 00 000 2279 MLR (Lyell) MOVE P&L ALSO IN CASE NEEDED SUBD4050 

092614 000060 0000 40 000 27R0 ADSCO —e WEPL 9 09320P0 5UBD4060 ge 
092615 600010 0000 40 000 2?7aR1 ADSCI 8:09325P6 SUBD4070 is 
092616 300002 2223 10 000 22A2 LNX2 eGQREGs09P3 5S UBD4080.. oe 
ON2617 100000 6367 12 000 2283 EPPR nose . SUBD4090 - 
002620 000100 1007 00 000 2784 MLR (Ll) of MOVE R R ROMS? UBD4TUU - = ve 
092621 000050 0000 40 000 27285 ADSC9 Sunes ovaeseo SUBD4110 : «® 
092622 600000 0000 40 000 2786 ADSCI Oa adres SUBDS1 20. eg 
092623 700106 2363 00 000 2227 Loa eCRDAT4+299Pe6CR 00000020 

002624 700105 0363 00 000 2288 ~ADLG SCRDATa 1 seheCR SAVE CURRENT (IME ror 
092625 002210 4022 00 010 2289 MPy TIMBG - 90000020 6z 
092626 O0003S6 7732 DO O00 2290 URE SO on 
0N2627 300002 7563 11 000 2291 STO eQTOD919P3 SUBD4140 z®@ 
092630 000005 2223 00 000 2792 LDX2 oWFTYPs oPC SET FAULT OR INTERRUPT TYPE FROM UBD41 50 e 
092631 000100 3022 03 000 2793 CANX2 =01009DU SUBD4160 

002632 002634 6012 00 O10 2294 TNz___DACQA________+ INTERRUPT—_____—suspai70——. @ 
092633 200000 2622 03 000 2295 ORX2 =0200000»DU $UBD4180 2 
502634 300000 0 00 296 DACOA 2G 20eP IBDFT IO = 
0N2635 300000 2143 11 000 2297 SZNC eQGATE se] oP3 SHUT QUEUE GATE SUBD4200 2@ 
092636 002641 6012 00 O10 27968 TNZ RD <9 UBD4210 OO — 
092637 300006 0543 11 000 2299 AOS eOBSY919P3 $UBD4220 

092640 002635 7102 00 O10 2300 TRA ed | 

192641 200000 3022 03 000 ?23n1 CANX2 =0200000sDU FAULT OR INTERRUPT SUBD4240 

092642 OO2661 4012 00 O10 2302 X DACOR «—FAU UBD4Z50 

092643 300006 2353 10 000 2303 LDA eQNTM10eP3 CHECK TIME QUANTUM SUBD4260 

092644 300003 [153 Il 000 2304 — CMPA.Q0TMsTePS OOOO TN BUBB DAZ TO 
092645 002661 6032 00 O10 2305 TRC DACQB GOT FULL TIMEs TREAT AS FAULT SUBD4280 ie 
ON2646 OO00U 0D 000 > 206 py: aU READ Y DUN SUBD4290 

092647 300013 0553 11 000 2307 ASA eORCT91sP3 | SUBD4300 . 

UNE OY JUUL T0000 308 ZN eGRAT ole PUT BACK INTO QUED sUBD+? —— 
092651 002655 6012 00 010 2309 TNZ DACQaC « QUEUE NOT EMPTY SUBD4320 

002652 3000 40 00 2310 TXO eQRHT el oP VEW ENTRY* SAVE HEAD & TM UBD ‘ : 
0N2653 300007 4403 1L 000 2311 SXLO eQRHT 91 eP3 — SUBD4340 

092654 002671 7102 00 O10 2312 £&4x.1°RA  DACQE © et BS SSO =~ 


z9 
19 
@ 09 
6S 
gS 
@ LS 


9S 
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0N2655 300007 7223 11 000 2313 pAcac LXL?2 eQRHT sl sP3 ADD TO TAIL OF QUEUE SUBD4360 
092656 300001 7403 12 000 2314 STXO eOPTRe29P3 LINK TO NEW TAIL UBD4370 
09265 300007 4403 11 000 2315 SXLO eQRHT919P3 TAIL PTR | SUBD4380 ~ 
092660 002671 7102 00 010 2316 TRA DACQE GO PROC? * 
092661 300010 2343 11 000 2317 DACQR  SZN eQFHT919P3 FAULT QUEUE SUBD4400 
092662 002666 6012 00 010 2318 TNZ DACQD QUEUE NOT EMPTY : GC 
092643 300010 7403 11 O00 2319 STXO eQFHT91eP3 EMPTY SAVE HFAD & TAIL 5UBD4420 
092664 300010 4403 11 000 2370 SXLO eQFHT 91 oP3 3 3 
02665 002671 7102 00 010 231 TRA DACQE GO ENABLE MAIN PROCESS SUBD4440 i 
092666 300010 7223 11 000 2322 DACAN LXL2 eQFHTsiePs GET TAIL PTR =  .O.OO SUBD SAS oe 
002667 300001 7403 12 000 2323 STXO eQPTRe2eP3 $UBD4460 o @ 
092670 300010 4403 11 000 2374 SXLO eQFHT91eP3 — —s SUYBD447000° 7 =e 
02671 000000 6317 00 000 2325\pACQF  EPPR PleseP0 MOVE PO TO Pl CUZ EXTM CALL USES PO SUBD4480 
092672 500000 6367 00 000 2376 “EPPR PoxnsPS «AND BS TO Bé CUz WE SAVE P5 FOR TOS SUBD4490 
092673 200052 6757 00 000 2327 LDD P.SSLoeKLSLVeePeKlL LOAD P.SSL FOR CALL TO EXT SUBD4500 
DADETED B0000r Das lO GON ana ens CET IME LOGICAL We eee 
0N2675 O00000 6352 12 000 2329 FAA 02 IN AU FOR UNWTRE CALL SUBD4530 .@ 
092676 300000 7223 10 000 2330 LXL2 SOFST+09P3 GET F/I FLAG WHILE WE STILL HAVE XO SUBD4540 | ae 
092677 300000 7503 11 000 2331 STC2 eQGATE ol eP3 OPEN QUEUE GATE 00000020 | 
~~ QN27TNO 777000 3152 03 O00 2332 CANA =07770009DU IF ReWeSe [5S GIVEN IN QUEUE 00000020 - = 
092701 002706 6012 00 O10 2333 TNZ DACQG SKIP CALL TO ee 80000020 
002702 2334 EXTMEM UWSDWS GO REAL. o# 
0N2702 500070 6707 00 000 LODO DP.EMEs eP»eSSL 
| 002703 ICLIMB eDROseeEXeEAXO SS ee ee ee eee 
092703 000006713400 000 VED LB/eEXSO9/TI3Z 91/1 91/01 /N96/M, le 
0N2704 000000601770 000 VFD 1/099/098/091/eN91/0092/092/0012/2DRO SS TO gt 
0N2705 000000 0112 00 000 2335 NOP DENIAL RETURN $UBD4560 ez 
002706 2336 DACQG NULL SOOT 0 —ti‘“‘CSOCOC 
ON2706 006042 4736 07 000 2337 LDP P.PROQ®*SDePRQ9*DL RESTORE REGISTERS WE USED SUBD4570 z@ 
092707 600000 6357 00 000 2338 EPPR P599eP6 PUT P5 BACK FOR 10S ~ ~ SUBD4580 = eg 
ON2710 006145 4766 07 O00 2339 LDP PeSSA2SDeSSA®DL SUBD4590 sz 
a 002711 2340 eSHUT DeGATEw1lssPePRQ | UBD4600 | x @ 
092714 100000 6307 00 000 2341 EPPR POseePl MOVE Pl BACK TO PO *CUZ Pl GETS USED SUBD4610 . 
On2715 300020 2213 17 000 2342 LDX1 DeSQUE*TePNePePRO 000 SUBDSB CG 
092716 000001 3352 07 000 2343 LCA LeDL SUBD4630 z® 
On2717 300025 0553 11 000 2344 ASA DeSQPT+elelePePRGQ DECR # /PROCTRS IN QUEU | UBD4640 “ 
002720 2345 eOPEN DeGATEwlesPePRG SUBD4650 _ 
| 00272 2346 SHUT. T | TO OOOO LO es 
0N2723 200000 3022 03 000 2347 CANX2 =0200000 «DU SueDeeG0 a 
O0N2724 OQ 0 6002 00 O10 2348 E DACG + YTTERRUP UBD4 
on27725_ 003255 7012 00 010 2349 TSX PUTPRX»PUTPRQ PUT MAIN PROCESS IN QUEUE SUBD4690 
~ 002726 2350 OPEN. PST-——ti—‘COW!OC~™~™; | 
02727 001165 7102 00 010 2351 TRA ED9 GO REDISPATCH 00000020 
0N2730 003255 7012 00 010 2352 RACGF TSX PUTPRX»PUTPRG PUT MAIN PROCESS IN QUEUE AND ~~ O0000020 0° 
; 002731 2353 OPEN. PST RETURN TO TOTFRM W.O MAK ING 00000020 
ON2732 O0027T? 7102 00 O10 2354 RA TOTMS YP TTRY tN 203A R “SUBD ¢ 
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FNABL FEF A PROCES S§ 


A A eM tr ensnnamen 


2356 * 
ees TATS ROUTINE ENABLES REQUESTED PROCESS. CHANGE HIS URGENCY i 
2358 * IF_tNCORE AND DISCONECTEDs IT IS PUT INTO DISPATCHER QUEUE i. 
2359 * TF RELC ROADBLOC AND NO EVT REQU fp HEN NOT PU 
2360 * : 
| 2361 % PRECALL Q UPPER KPX OF ENABLED PROCESS 
2362 % 18°23 URGECNY ea 
: 2363 %* 33835 CODE O08 PERMANENT URGENCY ENABLE TT gy 
2364 * = ALRM CLOCK ENABLE ly 
2365 % —@= NEW PROCESS ENABLE 
2366 * 43 TEMPORARY URGENCY ENABLE - ) 
2367 * PNePeKLe Pe a aaa 
2368 * SHUT = NON . ey 
2369 * CALLING TSX ENBLXeENABL »@ 
2370 * ERROR RETURN ly 
Se ee ea a (CC NORMAL RETURN 0 ee a ne Ce he 
2372 % | | | « @ 
"9373 %  ®&35POST  }RELOADED PoeLRMs PePSTs PePROs PsaPIDe PePDP 0X 
2374 * KPX is 
TC LOST AG VEBK 9 PPY 9 PPX 9 X08 PO ~«@ 
2376 * SE 
OS eS OOO =—= ese Ck oe ere ue So ee ee ee re Re ee ee nen eee a 
000001 2378 PePIN SET Pl « @ 
——— ee OOOO ~~ “2879 PaPDR “OE. IR ST ee Sage ene, pe ae 
092733 2380 FNABL FQU % | 
092733  OO7313 7102 00 O10 23al TYENRL TRA YeFNBL*NOP IF TACE OFF ENABLE A PROCESS 
002734 000000 6262 02 000 232 EAX KPXs 9QU * to 
0N2735 Q000 622 U6 0) 2383 EA 3K eeu ROAY e)> es 
0N2736 770000 3162 07 O00 23824 CANO =0770000 sDL *URGENCY ZERO | uz® 
002737 002753 6002 00 010 2385 44T2F  &+&EBD .......©63§©®9OKIP 6oITF ZERO UURGENCYQ 0000 Ss 
092749 000007 3162 07 000 2386 CANQ 7eDL *PERMANENT Gee ee on 
ON? 741 D AL 
092742 2388 ah LRM *SHUT GATE AND GAET_ PeLRM | ie 
ON2743 200004 2 6 000 23a9 7LRMsKPXoPe LRM LY aaa 
092744 000077 3752 07 000 2390 aN URMASK»sDL . *ANY URGENCY 7@ 
092745 002752 6002 00 O10 2391 mame 5 FBI SK aaa aa? 
002746 200004 6553 16 000 2392 ERSA LeLRMsKPXePeLRM *CLEAR URGENCY IN ENTRY 
002747 000000 6352 06 000 2393 EAA 9 QL | 
0N2750 000036 7712 00 000 2394 ARL 30 a 
NZ TST 0004 poe BE 000 39% ORSA el RM9KPR OP eLRM 210 VABLE URGENCY —— ser 
002752 2396 FB1 FQU a a) 
Se oe OT eS 39 OPEN. M ———SUPEN- ERM GRIST es ea, 
002753 2398 FB2 Eau % | 
OO “AGS7GS—O8990.”~”~O””””:CSNU Tr SPOS CRIS 8 
002754 = 2400 SHUTe PST SHUT PST GFT PePST _. a 
ON2 75! 030 02 00 OID SC 7 ~BMARK WARK pa ee 
002756 400000 2353 16 000 24n2 LDA sKPXePePST *GET PST ENTRY | .@ 
092757 003067 6002 00 O10 246n3  T2F EBER 0 ORND SUCH ENTRY ERROR 
092760 000002 3162 07 000 2404 CANQ 29DL *IF NEW PROCESS ENABLE 
O276l “O0s023 60l2 00° 010 2405°°° °° IN2 Eas UU MOON) MARK PScENE SS 


Z 
9 
S 
v 
& 
cA 
1 
9 


OO. 2... oe ee a es Pe ee ee ee ee eee 
6s 124BT 02 12"27"79 09.322 H660047.057 GCOS IV 4VX DISPATCHER 791219DISP PAGE 74 ie 
8c 8s 
a de Ne ee 
9s : 9S : 
ss 092742 002000 3152 07 000 246 CANA PS.ENBeDL *ENABLE REQUEST ALREADY SET as 
@:: 002743 002772 6002 00 010 2407 TZE EB3 — ¥#*NOT REQUESTED ~— “ys @ 
es 092764 200044 1063 17 O00 2408 CMPX KPXeeKLPRGePNePeKL *ENABLE ITSELF be 
zw ~=—Sté<i~sé‘;:*~CN ZT HH ©00BOHB_ BOOZ OO O1O 2409 TZE EBIIL YES ‘ ~ ei a 
@ :: 092766 770000 3162 07 000 2410 CANQ 20770000 DL *ZERO URGECY ® 
os ON27467 002775 6012 00 O10 2411 TNZ EB4 *NO os 
6y 0N2770 002000 6752 07 000 2412 ERA PSENBeDL *RESET ENABLE IF ZERO URGENCY ENABLE 
@: ON2771 002775 7102 00 010 2413 TRA EB4 
Lp 002772 2414 FB3 FOU * ly 
ov ON2772 70000 3162 07 O00 2415 CANQ. sO7700000DL *2ERO. 0 gg 
@: 092773 002775 6002 00 010 2416 TZE EB4 *ZERO URGENCY DON'T SET PSeENB o @ 
ty ON2774 002000 2752 07 O00 2417. ORA peneNG Bt by 
ey 002775 2418 \EB4 FQU 
@: 092775 400000 7553 16 000 2419 STA sEBKG P.PST  #S5ET PST ENTRY a ee 
tv 002776 000004 3162 07 000 24270 CANQ 49DL *TEMPORARY URGENCY ty 
vo On2?7? 063004 6002 00 010 2471 # TZE bB5. IN 
@ «: 093000 003074 7552 00 010 2422 STA EBTMP #SET TEMPORARY URGENCY « @ 
ee 093001 003074 7522 04 010 2473 5TCO EBTMP904 ae 
‘. 0N3002 003074 2352 00 010 2424 LDA EBTMP is 
@« 093003. 003016 7102 00 010 2425 TRA EB? « @ 
GE 003004 2476 FBS5 FQU * SE 
ve SOS”™~*~é<“—stS:”””””, NBO = ©-00OTG 7722 00 000 2477 QRL. 12 — *SATFT PRM URGENCY POSTION 00 ve 
@«: 093005 003074 7562 00 010 2428 ST9 EBTMP *SAVE REQUEST «<®@ 
ee 093006 002000 2762 07 O00 24279 ORO PS.ENBeDL | — ag 
te 093007 400000 6763 16 O00 2430 ERO eKPXsPePST 
@« 093010 002077 3762 07 000 2431 ~ANO 63+P5eENBeDL *IF SAME REQUEST AS CURRENT BST <@ 
6z 093011 003014 6012 00 010 2432 TNZ EB6 *NO 6z 
ze ON3012 003073 5542 00 010 2433.  STCi EBMARK MARK DON'T ENABLE POP  —— 8 
@ 093013 003016 7102 00 010 2434 TRA EB7 | z® 
oz ; | 003014 2435 FR6 FQU % | 9z 
sz 093014 003074 7512 76 O10 2436 STCA EBTMP 976 | | gz 
@ 093015 003074 2352 00 010 2437 LDA EBTMP *NEW ENTRY GOTTEN z@ 
ez | | 003016 2438 FB7 EFQU % ez 
Ze ~ 003016 400000 7 6 O00 2439 STA eKPXsPerS R 6). NEA NTRY ae 
@ , | 003017 2440 EBB EQU % z@ 
02 ON3017 770077 3152 07 O00 2441 CANA =O7700779DL £/*® IF URGENCY TS ZERO» REQUEST TS 7 oz 
61 093020 003063 6002 00 010 2442 TZF EBI1 DISABLE. SOs SKIP PUT IN Q zi 
eo: 093021 200044 1063 17 000 2443 CMPX KPXeeKLPRGOPNoPeKL 22g 
uu 0N3022 003063 6002 00 010 2444 TZF FR11 *ENABLE ITSELF Li 
oO OOSOZS~~COS BBA FQU Rl 
@: 093023 000000 0112 07 000 2446 XsFBR NOP 9DL *IF OPTIONs CHECK PRIORITY | a@ 
nn 093024 400000 3152 03° 000 2447 CANA PS.SWP»DU ~~ ~¥*INCORE nn, 

“i 093025 003041 6012 00 O10 2448 - TN2 EB9 *YES PUT IN DISP QUEUE HIM SELF 1 
@: 093076 000002 2212 03 000 2449 FBBE  LDX Ze? 9DU SET FLAG FOR POPM TO SWAP IN SOMEBODY DISPo0wWs a® 
7 0N3027 200154 4413 00 000 2450 SXL ZaaKLCSWe oP eKL o DISPOOWs tt 

ol D0A30 430 200 OTe JOO rd, 5 x ¢ak SWeoreKL, Nie 4 ox} r - rele Pt Pe 19 r) SOW 
, ae 093031 003026 6002 00 010 2452 | TZE FBSE ¢ REPEAT 'CUuZ IT DIDN'T TAKE DISPOOWS 
se 003032 003 2342 00 O10 2453 SZN EBMARK FSHOULD ENABLE POP 
p | 093033 003063 6012 00 O10 2454 TNZ EBL1 *NQ NEED TO ENABLE 
@: 003034 003073 7462 00 O10 2455 °° STX KPXeEBMARK 
; | 
@ : 


ee ee ——— © 
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bebe FNABLE A PROCESS sea ll 
0N3035 000001 6262 00 000 2456 FAX KPXe.PNPOP *ENABLE OP _ és 
093036 002000 2362 07 O00 2457 Lodo PS.SENB»DL SET ENABLE BIT TO POP - 
023037 400000 2563 16 000 24588 ORSO sKPX9P,PST - 
ONa040'. 002062 Tl02 00 OL0 2459 X,ERaA TRA. “ERO tc pm ee ee eT ge ag 
003041 2460 ERS EQU * . 
093041 003075 7526 00 010 2441 STWS EBWSV *SAVE WSRtS 0s 
0N3042 000000 6352 16 000 2442 EAA sKPX a 
093043 000002 7352 00 000 2443 ALS 2 a 
003044 006024 4716 07° 000 2464 LDP PePID»SDePIDeDL ly 
093045 10000] ?l27T Ol 000 2465 DWS ToAUsPePIU AANGE WSR TO A aa 
000000 2466 TeSSA SET PO ae 
0N3046 006145 4706 07 000 2467 LDP TaSSAs SDe SSA DL vy 
093047 000001 3022 03 000 2468 CANX EBXelsDU *ALRM REQUEST 
073050 000003 6002 04 000 2469 T2F 3e1C *NO ee ee ee eg ee eee 0 
093051 000201 3362 07 O00 2470 LCa » TALRM4#1 oDL *OFF ALRM SET BIT | - 
O03082 OOOOL? 3563 00 000 2471  # £ANSQ  «STATEseTaoSA UT Tg 
03083 000017 2353 00 000 2472 LNA STATES eT e SSA «@® 
093054 000117 2363 00 000 2473 LDO eSROST eT e SDA eS es : a: 
093065 003075 7726 00 O10 2474 LOWS EBWSV *RESTORE WSR ‘a 
———GA3056 600000 3152 07 000 2475 CANA eTRELT+eTRDBK*DL IF TT ROADBLOCK OR RELINC <0 
0N3057 003062 6002 00 010 2476 TZF FB10 *NOe SO PUT IT INTO DISPATCH QUEUE ge 
003060 O00120 3162 0 O00 247? CANO wRSOWP+eRBRT PDL TO EVENT REQUESTED ve 
0930461 003063 6002 00 010 2478 TZF EBIl *DON*T PUT «® 
OGD 2479 FB10  FQU ® 3 eS ee 
093062 003255 7012 00 010 24R0 | TSX PUTPRX sPUTPRO *GO PUT INTO DISPATCHER QUEUE 
003063 2481 FR11  EQU *  ) 
0N3043 200044 2263 17 O00 2482 LDX KPXeeKLPRGsPNePeKL *RESET KPX éz 
TCO OOG”~“‘ HR !!!!!UCOPEN,.)UPSmTOOOOCOCOCOCOCS”C“SNSWS. WUPENN PST GATE 
003065 2424 OPFNe DSP *OPEN DSP GATE n® 
ON3046 O00001] Vl02 13 000 2485 TRA LoPNBUX TT TSS 
003067 2486 FBER  EQU * 
Bnsoae SUeuee Deas I 000 cat RGN a a ee ee 
003070 2488 OPENe PST Zz 
OOSC7TI 2489 OPEN. DSP See ae 
093072 000000 7102 13 000 2490 TRA 0 sFNBLX ® 
003073 2491 FBMARK BSS l _ 0z 
003074 2492 FRTMP BSS 1 a 
Ts —————— F03075 2493 FBWSV 0855 #4. ©  ) 
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8S 
FNABLE PROCESS BY EVENT <@ 
9S 
2495 %* | 
2496 * THTS ROUTINE ENABLES PROCESSES WHEN THERF IS SOME SYSTEM a 
2497 * EVENT REQUESTe (SSA PAGE GATE MODULE) es 
2498 % PROCESSOR PROC RUN HERE. REQU “STANDS ON DSPEV Zs 
2499 * m 
000004 2500 XEVTP SET 4 0s 
Q00001 2501 PePIN SET. Pl 6Y 
003076 2502 DEVT EOU * a @ 
0N3076 010000 3152 03 000 2503 CANA PS.GATsDU *GATE OPEN EVENT ee 
093077 003102 6002 00 O10 2504 —  T2E DEVTIL TT ged, INS eae ey ee ee aE Oe ee a 
003100 777745 6242 00 000 2505 EAX XEVTP »DeGMOD+1-D+PRO 3 ov @ 
093101 003115 7032 00 010 2506 TSX CEGENGCERE *ENABLE THOSE WAIT es 
003102 2507\DEVT1 FQU 
003102 020000 3152 03 000 2508 CANA PS: SSAsDU *SSA PAGE FREE EVENT 7 “@ 
03103 003106 6002 00 O10 2509 T2E DEVT2 *NO 
ON3104 777743 6242 00 000 2510 — EAX SEVP seoiPal sO nd SS SSS 
093105 003115 7032 00 O1O 2511 TSX CERLXeCEBL *ENABLE THOSE WAITING © 
003106 2512 DEVT2 EQU * 3 
003106 004000 3152 03 000 2513 CANA PS.SI10sDU /* SHARE SSA LOADING COMPLETE i 
003107 003112 6002 00 010 2514 TZF DEVT3 | | : «@ 
0093110 777747 6242 00 O00 2515 FAX XEVTPsDeSlO+l-DePROA se 
ON3111 OO3115 7032 00 O10 2516 TSX CERLXsCEBL gg 
003112 2517 DEVT3  EQU * «®@ 
ON3112 000000 6262 00 000 2518 FAX KPX 00 ~ WRESET REGe FOR SLCTL 2X 
003113 006024 4716 07 O00 2519 LOP PePIDsSDePIDeDL Le 
0N3114 001430 7102 00 O10 2570 TRA SLCTI1 co @ 
. 003115 2521 CEBL EQU *% 6z 
03115 003125 7952 00 O10 2522 STA CEBL * Ge | 
003116 2523 CEBL1 EQU * z® 
0N3116 300037 1043 14 000 2574 CMPX XEVTPeDePRQSXEVTPePePRO 000 oe 
003117 003123 6002 00 O10 2525 TZE CERL2 *NO ENTRY IN THIS QUEUE se 
0031290 300037 2263 14 000 2576 LDX KPX sDePROSXEVTP oP. PRG ~  #@ @ 
093121 003255 7012 00 010 2577 TSX PUTPRX »sPUTPRO *PUT IT IN DISPATCH QUEUE ez 
On3i22 O03TTé 7102 00 O10 2578 TRA CCERED————C—C~C~—*~—~*~***~*C*CS«RPRROCESSS NEXT ENTRY = ————CCSCSC‘“‘SCSCSCSST 
003123 2529 CFBL2 EFQU * ® 
003123 003125 2352 00 010 2530 LDA CEBLSA HRESTORE oz 
093124 000000 7102 13 O00 2531 | TRA »CFEBLX 
sis OOST25° — 532 CEBLSA BSS | FOAVE AREA oes ee ey ee 
Zt 
9) 
| i @ 
vl 
a@ 
OL 
:@ 
8 
Z 
» @ 
Ss 
v 7 
- @ 
YA 
: 
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g¢ 8s 
Oe STR ROUTINE SET ALRM CLOCK TO RING OR RESET ITO | 
9S 9S 
S 2534 * ss 
@:: 2535 # THTS ROUTINE SET RO RESET ALRM CLOCK ay eee ne ere ee rae eae 
€S 2536 * : Ss 
2sCOCSCSCSCSCSS RY R”™”~”*CU~éPCRCE PARE. PeCRe Pea SSA® KPX9 PN ag 
& ts 2538 * SHUT = NONE ~@ 
06 2539 % #&4Q@REGe BIT O = 29  &#x}1TTME INTERVAL (16%6% MICO SEC) 00 O6 
6 2540 * 30 - 35 URGENCY TO WAKE uP OS 6 
@: . 2541 ZERO » RESET ALRM TIMER  ) 
ty 2542 % KPX = =] TO SET SWAP TIMER 
9V 2543 * KPX = 0 TO SET INTERCOM TIMER av 
@: 2544 % CALLING TSX SETLRX*eSETLRM 1 @ 
vy 2545 * . vy 
ep 2546 * POST LOST Zs XOe AQ X5 
@. 2547 » STATE BIT eTALRM ia ia oa aca 
We 003126 2548 SETLRM EQU ty 
Bp en ERIN I os ee 
@ « 003127 2550 SHUTe LRM *GET PeLRM AND SHUT GATE -@ 
ae 003130 000077 3162 07 000 2551 CANQ URMASK eDL RSET Se Se ea ee ee ee 
ie 093131 003147 6012 00 010 2552 TNZ STL5 *SET ALRM Ie 
eo." 0H3132 200004 2353 16 000 2553. LDA LeL RM®KPXePeLRM _®RESET ALARM GET ENTRY SOOO 
ce 03133 O00077 3152 07 COO 2554 CANA URMASK sDL *ENTRY SET se 
ve 003134 QO 1 600 JQ 010 2555 rE t | BNO HEN WHA ¥Q . | —— “ve 
®@ : 2556 — #*RESET ALARM - ) 
ze” 003135 002100 7452 17 O10 2557 STK SETERX9CCFLG OPN 
= te 0N3136 003226 7052 00 010 2558 TSX RETLRXsRETLRN *#RESET ALARM WITH LRM SHUT e 
@ 003137 OO2100 2252 17 O10 2559 LOX SETLRXSCCFLGIPN © °° 0 Se oc’ 
ez 093140 003223 7102 00 O10 2560 TRA —«§tTi ll #RETURN a 
eS OST ST BB6T STOR COU aR 
@ OM3141 O00000 6262 16 000 2542 FAX KPXesKPX *IF IT IS SWAP OR INTERCOMs 2n® 
ze OM3T42 003222 6046 00 O10 256 OZ mae KIP eSTA ECTK » 
cz 093143 600017 2363 00 O00 2564 LODO eSTATEe oP eSSA *CHECK AND RESET BIT 
@ 093144 000200 3762 07 000 2565 ~~ ANQ STALRMeDL ALARM SET BET 
ez 003145 600017 6563 00 000 = 2566 ERSO e STATE 9 oP eSSA 
zz N3146 O00 @ ole O16 3 RA LIO FGO FR ORN 
@ .: 003147 2568 STL5 EQU * 
oz 0N3147 600 6 U0 O00 2569 a) eOTMPOs oP e fi RSAVE REOUF > AO OS A : oy : x 
és 093150 006063 4706 07 000 2570 LDP PeRMSeSDeRMSoDL 2. 
®:.  }.®}OA3TS 41: 2571 eR CU 99PeRM K Be gr OE Pinay a en are Ce ee ae 
“A 0N3152 000004 7722 00’ 000 2572 ORL 4 ae ErGRO SEC UNIT. 32 BITS wIDE e 
ao OAS T5S O06 62 00 O10 257 AN MASR N AITRO ee ee 
@: 0N3154 600215 0363 00 O00 2574 ADLO eSTMPQOs9PeSSA *ADD INTERVAL AND URGENC 
nu —S 03765 003454 3762 00 O10 27575 ° & & 4}ANQ +SULMAX 
et 003156 200004 2353 16 000 2576 LDA Lel RM9KPXePeLRM *PULL THE ENTRY 
@: 0931657 OO00077 3152 07 O00 2577 ~~ CANA URMASKeDL  ¥§ALARM ALREADY SET }}}}.}...© 3). 
tH pee 003175 6012 00 O10 2578 TNZ STL6 *YES ALREADY 
‘o 6 YUU UO VOU aT ‘ aPik eer ai We OUNT D YTRY NUMBER 
@: on3le? 000000 6262 16 000 2580 EAX KPXs sKPX. 
Ss fara Os Is b0s6 00 O10 seal wor SLs es SIN ERCOM OR GWA  S 
t 0N3164 600017 7213 00 O00 2582 LXL Zoe STATE 9 9PeSSA *SET ALARM BIT 
ae 093165 000200 2612 03 000 2583 ORX feel ALRM DU 0 
@ : 
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@ . SFTLRM ROUTINE SET ALRM CLOCK TO RING OR RESET IT 
9S ; 9S 
ss 003166 777757 3612 03 000 2584 ANX Zael~eTRANG*DU TURN OFF BIT SAYING ALARM RANG 00000020 2 

@:: 003147 600017 4413 00 000 2585 SXL Zee STATE oP oe SSA *STORE eTALRM BY ——_©@ 
€S 003170 2586 SHUT « PST es 
zs 003171 400000 2353 16 000 2587 LDA oKPXePaPST zg 

@ : 003172 001000 3752 07 O00 258 ANA PS.LRMeDL *RESET ALARM RANG BIT ~@ 
os 003173 400000 6553 16 000 25A9 ERSA oKPXePePST —*WE HAVE RESET IT laa a a a aaa 
6y 003174 2590 OPENe PST 6b 

@. = 003175 2591 STL6  EFQU * ov @ 
“6 003175 200004 7563 16 000 2592 STA LeLRMsKPXePeLRM *STORE NEW ALRM ENTRY = 
x» 03176 003453 3762 00 010 2593 °  £4ANQ SLMASK CLEAR URGENCY FIELD 

@: 003177 200002 7213 00 000 2594 LXL ZeLePTReePeL RM *HOW MANY ENTRY as 
vy 093200 000001 1012 03 000 2595 CMPX Ze19DU *¥TF ONE® ONLY MY ENTRY IS IN TABLE ee Oat 
ey 093201 003220 6002 00 010 2596) TZe STL9 *I AM THE FIRST TO WAKE SO FARe 

@~ 003202 001312 1162 00 O10 2597 CMPQ ALMCRT *LAST CHECKED TIME BY ALMCK ROUTINE 
ty 0N3203 003220 6002 00 O10 2598 TZE STL9 *THIS IS ONE OF EARLIEST ONES is 
ov 093204 200001 2353 00 000 2599 LDA LeFRST eo aPeL RM * - TR M NOW “tee 

@ « 093205 200001 1163 00 O00 26n0 CMPOQ LeFRSTesPeLRM *IS IT THE SAME TIME «@ 
8 093206 003222 6002 00 010 24nl TZF STLLO *YES OK NOTHIG TO DO NOW 4“ 
us 0N3207 003216 6022 00 O10 24602 TNC STL8 | ie 

@ 093210 001312 1112 00 010 2403 CWL ALMCRT | «®@ 
SE 093211 003220 6002 00 010 2A04 TZE STLQY SE 
ve - : 003212 2605 STL7 FQU * ve 

@: 093212 200002 1063 00 000 26n6 CMPX KPXeLePTResPeLRM «®@ 
ze 0N3213 003222 6012 00 O10 2607 ~— TNZ STL1O ee — SG ae aa age 
ts 093214 003376 7012 00 O10 2608 TSX SRTLRXsSRTLRM *RESORT ALRM TABLE Fe 

eo: 093215 003222 7102 00 O10 2409 TRA STi 10 *OK FIMISH — o¢ @ 
ez | 003216 2610 STL8  EFQU * . 
we OM3216 OOlST2 1112 00 O10 261) CW ALMCRT 

@ 0N3217 003212 6002 00 010 2612 | T2E STL? *#EARLIER ENTRY 2®@ 
9z 003220 2613 STLO EQU * 92 
gz 003220 200001 7563 00 000 2614 STO LeFRST»esPeLRM *THIS IS FIRSTEST ENTRY TO RING be 

@ . 221 200002 7463 00 000 2615 STX BX CSP TR SSP sLRM rz @ 
€z 003222 2616 STLI1O FQU * €2 
zz 003220 2617 ; OPENe LRM . ROPEN ALRM GATE zz 

@.: 003223 2618 STL11 EQU — * z@ 
0z 003223 2619 OPENe DSP oz 
093224 000000 7102 15 000 2420 TRA eSETLRX in 

@: 2621 * a ® 
‘a 2672 % RFSET ALARM ENTRY ie 

a)’ 26273 % | 91 

@: 003225 2624 RETLRM EQU x «®@ 
on C« SASK PH!”~*~”””:CSS TT RM 8 ee —_ " 

oe 003226 2676 RETLRN EQU * 

@. £03276 200004 2353 16 000 26277  &;|LDA Le URS PRP SCRA EGET ENTRY = 
ee 003227 OO00077 3752 07 O00 24628 ANA =077sDL 41F NOT SET ‘ 
fe... wee Tee 30° 00 B 6002 00 O10 6279 FE R ~ 

@: 093231 000001 3362 07 000 2630 Lca 1eDL COUNT DOWN NOe OF ENTRY 
oe  ON3232 200002 0563 00 000 2631  #£4ASO LePTReeP.LRM 
: 03233 000100 3362 07 O00 2632 . - Bea =0}00eDL *RECOVER SAVED URGENCY 

@: 093234 000000 6262 16 000 2633  EAX KPXe 9KPX IFT 5 Sw 
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SFTLRM ROUTINE SET ALRM CLOCK TO RING OR RESET IT ie 

003235 003242 6046 00 O10 2634 TMOZ RT3 *SKIP URGENCY AND «STATE PROCESS _ 

003236 2635 SHUT. PST ‘ 

0N3237 400000 3563 16 O00 26436 ANSO aKPXePePST *INTO PST PARMANENT URGENCY se 

003240 400000 2553 16 O00 2637 ARSA - SyONuPerSl 0 0 ee ee 

003241 2638 OPEN. PST . 8 

| 003242 2639 RT3 FQU * 7 - 

0N3242 200004 7563 16 000 2640 ST LeLRM*kKPX»PeL RM ey 
093243 200002 1063 00 000 2641 CMPX KPXeLePTReePeLRM *IF THIS IS HEAD ENTRY ©@ 0) gy 

003244 003246 6012 00 O10 2642 TNZ RTI *NO ie 

093245 003376 70l2 00 O10 2643 TSK RTLRXOORTLRM RR LARM TAB ee 
003246 2644 RTL FQU * ov @ 

. 003246 2645 OPENe LRM vy 

003247 000000 6262 16 000 2646 FAX KPX 9 9KPX /* IF SWAP OR INTERCOM | 
093250 003254 6046 00 010 2647  #«#&#&3TMOZ  #RTS SKIP eSTATE UPDATE = = = oe 

0N3251 600017 2363 00 000 2648 LOO o STATE s oP e SSA < 

003252 000200 3762 07 O00 2649  ANQ eTALRMeDL OFF THE ALARM SET BIT 
003253 600017 6563 00 000 2650 ERSO STATE 9 oP SSA «@ 

003254 2651 RT5 FOU *% ae 

003254 000000 7102 15 000 2652 TRA *RETLRX 
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PUT A PROCESS INTO DISPATCHER QUEUE ~@ 
9S 
2654 * ss 
2655 % a 
2656 * THIS ROUTINE PUT REQUESTED PROCESS INTO DISPATCHER QUEUE ie 
657 * IF THE PROC WA OF V YT SDaPRQe NK By 
2658 % OUT OF WAIT QUEUE (IeEe SSA PAGE sLOADING. SSSA. OR GATE MODULE) x | 
2659 * os 
2660 * PREPARE P.PST 6 
2661 * | SHUT = DSPs PST Sy 
2662 * CALLING TSX PUTPRXePUTPRO ty 
2663 * ov 
2664 # LOADED PePROQs PePDP 7 aw ®@ 
2666 ik PST WILL BE UPDATED TO SHOW DISPATCH WAITING - 
000000 2667 PPX SET 0 7@ 
000002 2668 PPY SET 2 | 
SS OOOO BAae PaeOP SEY a aaa SSS 
003255 2670 PUTPRQ EQU * =) 
093255 006042 4736 07 000 2671 EDP. « PePRQs5SD.eROsLL.6~Cs~=C‘“‘a ei‘ ;CCS!!! UU 
003256 006036 4716 07 O00 2672 LDP PePDPsSDePDP DL *PDP SEGMENT 
093257 400000 2353 16 000 2473 LDA SKPXs P.PST *PROCESS STATUS TT Soe .@ 
093260 000002 6012 04 O00 2674 TN2 2eTC *TEST ce 
003261 #42675 PPzZoPp ZOP  . ¥NOQ- SUCH PROCESS IN SYSTEM 6 
0N3242 400000 3152 03 000 2476 CANA PS.SWPsDU *CHECK CONSISTENCY «®@ 
0N3243 003261 6002 00 O10 2677 T2ZF  PP70P  ¥ PROCESS NOT IN CORE 
093244 100000 3152 03 000 2478 CANA PS.EXCsDU . 
093265 003271 6002 00 O10 2679 TZE PPNQ « NOT IN EXECUTION — OO0000TO———— oe 
093266 002000 2752 07 000 26R0 ORA PS. ENBeDL JOB IN EXECUTTONs Bue MAY BE ON WAY 00000070 2 
ON32h7 400000 7553 16 000 26—Al STA wKPX9PeP OUT+ SO SET FNA 3] OR DU0000TO ” ae 
003270 000000 7102 11 000 2682 TRA sPUTPRX DISCONNECT To BEES & RETURN 00000070 2®@ 
003271 2683 PPNQ NULL an | 8] 01010 0) £0 
093271 003075 7526 00 O10 2684 STwS EBWSV *SAVE wSR | | sz 
003272 006024 4716 07 O00 2685 LOP “PePIDeSDePID oD gy 
003273 000000 6352 16 000 2686 EAA eK PX *PID ENTRY ADDRESS a 
OUOacts OU000? sa5e 00 U00 ¢6ar” °° ~“ReS "@ 0 ee 
003275 100001 7727 01 O00 2688 LDWS LeAUsPePID * CHANGE wSR TO ACCESS SSA 7@ 
ON3276 6000 00 ~—C000 689 LDA S STATE) oP e DA TS-AND-REQU NT = ‘i 
0N3277 003375 3752 00 O10 2690 ANA PPEMSK EXECUTION PRIORITY, BUT é 
ON3300 600TIT 2753 00 O00 2691 ORA eSROST eo ePeD0A SET OFF SOME BITSe a? | 
093301 003075 7726 00 O10 2692 LDwS EBWSV *RESTORE WSR pt 
3 6 | 
0N3302 006036 4716 07 O00 2494 LDP PePDPsSDePDP»DL |§ *RELOAD pDp 
~ 00330 69 TR» 
0N3304 010240 5202 02 000 2696 RPT ‘ZEXLSZ929TNZ 
093305 000000 2 l2 000 2697 | CANA +XPTR R CHECK ANY B AND 
0N3306 100000 7203 16 000 2698 LXL PPX 9 eKPX9PePDP 7 _ 
00330 OO 00 Xe ¢ 000 699 AN X PDX 9 XTOD »DU OMPAR n qy PRIVIOU = ee Bi 
0N3310 777777 1002 12 000 2700 CMPX PPX eel sXPTR PRIORITY CODE -®@ 
093311 003316 6002 00 O10 2701  £&4.+'™7F PPO © =~ NON : 
0N3312 100000 2353 16 000 27n2 LDA 2KPXsPePDP | ) 
093313 003374 3752 00 010 27n3  #4ANA EXCMSK% T ZEXCOD F » ® 
S 
v 71 
. © 
vA 
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PUT A PROCFSS INTO DISPATCHER QUEUE a 
003314 777777 2752 12 000 2704 ORA m1 aXPTR *THEN SET NEW EXECUTION PRIORITY ue 
0093315 100000 7553 16 O00 2705 STA 9KPXoPePDP ve 
| 003316 2706 PPO ~~ EQU % es 
093316 000000 0112 07 000 2707 TAPR1 NoP 9DL = Soe ere ny eee se ac zs 
003317 400000 2353 16 000 2708 LDA okKPXeP.PST *#WAITING SOME EVENT ie 
093320 074000 3752 03 000 2709 ANA  PS.DWT#PSeSSA*PSeGAT*PSeSIOspU Gg 
0N3371 003327 6002 00 010 2710 TZF PP} *NO EVENT WAITING SKIP ew 
093322 400000 6553 16 000 2711 ERSA aKPXePePST ~ *YESs CLEAR [fT AND UNLINK ay 
093323 300037 2203 16 000 2712 LOX PPX eDePRQSKPXaPePRQ a 
0933724 300037 ?e23 16 O00 2713.  LXL PPYSDePRQSKPROPePRQ TS 
0N3325 300037 7403 12 000 2714 STX PPX eDePRO»PPYsP.ePRO See 
093326 300037 4423 10 O00 2715 SXL Ee sPROWP EK erap he Pe a Tee a i ai: 
003327 2716 PPL FQU 
0033277 300037 1063 00 000 2717 CMPX TBX PRO PRO? 
093330 000000 4002 11 000 2718 TZE. »PUTPRX #1T IS IN QUEUE HEAD ALREADY im 
093331 003360 2142 17 010 2719 SZNC PPTATL oPN D PUT A ee gg 
093332 003355 6012 00 010 2770 TNZ PPTL *PUT IT AT TAIL OF DISPATCH QUEUE « @ 
093333 100000 2203 16 6000 2721 LOX PPX 9 eKPXePePDP *DISPATCHER PRIORITY © 00000 gg 
0933324 000000 0112 07 O00 2722 X.PP1 Nop 9 DL. *IF ANY PRIORTTY OPTION = 
2723 *TRA TO OPTION °° °° ©  ©™©™©)}©§©©.v.0.. 92 
093335 040000 3152 03 O00 2724 CANA PS.DWTsDU IF ALREADY IN QUEUE Sa 
093336 003341 G0le OO O10 2775 N PP? AR ROM RRENT PO ON = ve 
003337 2726 PPLA  EFQU % «® 
093337 300037 7223 00 O00 27797 °° ®&3LXL PPYsDePRO2ePePRO *NOe START FROM TATE ©} © 
093340 003345 6002 00 O10 27278 TZE PP3 *NO ENTRY YN QURUE PUT THIS AT HEAD = 
: 003341 - 2729 PP2 Ba i eg On gee me ee wg Eg os ee te 
093341 100000 1003 12 000 2730 CMPX PPXeePPYsP.PDP *WHICH PRIORITY IS HIGH 
093342 003345 6046 00 O10 2731 TMO oer) RPTT HERE. FOUND PO ON : ™ es 
093343 300037 7223 12 O00 2732 LXL PPY sDePROsPPY ePePROA n® 
093344 003341 6012 00 010 2733 | TNZ PP? — *GO TO NEXT ENTRY ©”. 92 
2734 *END OF QUEUE “ 
| 003345 2735 PP3 PQ — We ne ee 
0N3345 300037 2203 12 000 2736 LOX PPX sDePRQ9PPY»PePRO ez 
INA346 V00 6 0 000 73 ; x REM sDePRO PPX oP ePRi aes sete 
093347 300037 7463 12 000 2738 STX KPX eDePROSPPY ePePRO 2@ 
093350 300037 4423 16 000 2739 ~~ SXL”COiPPY De PROOKPX9PePRO 0g 
093351 300037 7403 16 000 2740 STX PPX sDePRQ2KPXsPePRG . 
ee a a ee 2741 .® 
| 2742 | CHFNGE PROCESS STATUS INDICATER a 
0N3352 O4GO000 2 6) elore 21% DA PS.DWI ee DU . eh ae Tt Oe a 
093353 400000 2553 16 O00 2744 ORSA sKPXoPePST *MARK IN PST ALSO 
093354 Te e PP: A PU 
2746 % TRA MPENB *IF MULTI PROCESSOR « 
747 % ~Ni , 
003355 2748 PPTL FQU * | 
Of 5 OU0000 0 0 OOO 14 Xe PPT VORP aDL . PRIOR Y OPTTON PDP 
| 2750 | *TO SHOW INACTIVE AND SOMETHING WAIT 
003356 300037 7223 00 O00 2751 PPTL1 CLXL  PPY¥sDePRQs2*PePRQ 0g 
093357 003345 7102 00 O10 2782 TRA PP3 *PUT AT TAIL OF QUEUF y 
2753 | 
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PUT A PROCESS INTO DISPATCHER QUEUE <@ 
9g 
003360 2754 PPTATL BSS eNRPRC *REQUEST CELL TO PUT AT TAIL me 
2755 ~® 
2756 * TABLE OF EXECUTION PRIORITY CODE a 
2757 * zs 
| 003364 2758 ZEXLST EQU x @ 
003344 160000000000 000 2759 OCT FEOOOOOO0000 Pe eee ee Se ee 
003365 001400 001400 000 2760 ZERO ZEXCODsZEXCOD 
003366 017600000000 000 2761 OCT. OLPEQ0D000000 0 
003347 001000 001000 000 2742 ZERO ZEXCOD*ZEXCOD/3 eZEXCOD=ZEXCOD/3 - 
093370 000174000000 000 2743 Oey.  OOGlTe000000, 595 ee a a my REE are 
093371 000400 000400 000 2744 ZERN ZEXCOD/3 eZEXCOD/3 a ) 
093372 000000000000 000 2765. OcT 0 
093373 000000 000000 000 2766) ZERO 0 | ee 
003374 2767 ZEXLSE EQU % | a @® 
O000LO 2768 ZEXLS2 EQU ZEXLSE@ZEXLST " 
000004 2769 ZEXLSZ EQU ZEXLS2/2 
003374 776377 776377 O00 2770 EXCMSK ZERO mZEXCODRH1eeZEXCOD=1 *MASK OF 7EXCOD FIELD OF PDP | 
093375 777573 000000 OOO 2771 PPEMSK ZERO mlmeTSYOT™eTINCC  */7 SYSOUT@=WRITING AND IN=CeCe HAS se 
2772 NOT PRIORITYe USER MAY BE RUNNING 
: 2773 BUT CC=WAITING HAS PRIORITY 
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ee eae ag ee ee St ERT ABLE JSORT AND. RESET ROUT UNG nn a ie ese 
$$ $$ een eee 
2776 * THIS ROUTINE SEARCHES SDeLRM TABLE AND THE WEAREST TINE ENTRY @ 
2777 * WILL BE PULL QUT AND POINTEDe 
2778 * Zs 
2779 * PREPARE P.LRM | @ 
2780 * - bePTR(19235)> # OF ENTRIES LaFRST= LAST RANG TIMEse LaGAT aa 
27R1 * LeGATE= SHUT | s 
27R2 * CALLING TSX SRTILRX*SRTLRM iad ov @ 
2783 * Lv 
27a4 * LOST XO« SLX SLYs As Qs SLZ(FUTURE) ov 
2785 % ov @ 
2786 *  ALRM TIMER IS MAX 377777777 MSECe MORE THAN THAT IS NULL ENTRY 
2787 * ENTRY SET MUST TRANCATED By MAX TIMER 4 
2788 * ov @ 
2789 * MAX PROCESS NUMBER IS LIMITED TO 2561 A 
000002 2790 SLX SET 2 ae 
000003 2791 SLY SET 3 «@ 
000004 2792 SLZ SET : Se 
003376 2793 SRTLRM EQU 
003376 200002 7223 00 000 2794 : LXl SUX¥L «PTR YP SLR BRRY ENTRY 
003377 003447 6002 00 010 2795 TZE SL6 
GsEOR —SEaOOO SSBF -OT OUTS 
0N3401 003452 2202 00 010 2797 LOXO SLRPTX *RPT INDEX ee 
0N3402 003452 7242 00 010 2798 LXL 7+5URP OA ) REPEA ; DTSPOP ona et eee, 
093403 000003 6222 00 000 2799 EAX SLX aLeLRM+L eSWAP “START FROM SWAP ENTRY 
093404 200001 2353 00 000 28n0 LDA LeFRST9ePeLRM ®LAST RANG TIME...) “.@ 
| 003405 2801 SLI FQU * a 
0N340 D00000 02 0 O00 RN RET X R AKCH 6 ~ v PAN : ee 
0N3406 200000 1113 12 Q00 2an3 CWL oSiXePeL RM z® 
003407 003414 6012 10 2804 Z L2 "AB | ge 
093410 277777 2363 12 O00 2805 LDQ ~15SLXePeLRM | *FOUND A CANDIDATE ee 
093411 77777 6232 12 000 2806 AX  SLYe-leSLX SAVE POINTER 
003412 776000 3002 03 000 2807 CANXO 3507760009DU . 
———“SAS413 60] I BOS Li - 
003414 2809 SL2 FQu * 2@ 
093414 OO0001 1242 03 000 22810 SBLX SL791ebDU MORE REPEA NEEDED s DISPOP eee 
0N3415 003405 6052 00 O10 2811 TPL. SLI DO IT DISPOPGS . 
093416 040000 1162 03 000 2a12  CMPQ  =0040000+eDU_¥*DID WE FOUND A CANDIDA eee 
0N3417 003442 6012 00 O10 2813 TNZ SL5 *YESe IT IS NEAREST ONE i 
093470 00000 O7 006 R14 LOA ot rN. ND SMA AEN er ee ore ae 
0N3421 003452 aa: 00 O10 2815 LDXO SLRPTX i® 
ON3472 ~~ +©O0 00 O10 816 x 7<+SLRP OTSPOP - 
0N3423 000003 Nee 00 000 2817 FAX SLXaLe ERMEES SWAP | 7 
003494 200001 2363 00 000 2818 mye) eFRSTs 9PeLRM ROMA R THAN LA @ 
2 003425 2819 SL3 FQU % és 
542 B26 8 ot 
093426 200000 1113 12 000 2821 CWL 9SLXoP aL RM | 
ON3427 003434 6012 00 O10 28P2 TNF SL 
093430 277777 2363 12 O00 2223 LDA ~1eSLXePelLRM 
093431 777777 6232 12 000 2874  4EAX  SLYewlsSLX Pa ee ee 
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8S 
ALRM TABLF SORT AND RESET ROUTINE s® 
9S 
093432 776000 3002 03 000 2825 CANXO =0776000sDU ss 
0N3433 003425 6012 00 O10 2876 TNZ SL3 as 
003434 2877 SL4 FQU % ee 
093434 OOOO0O] 1242 03 000 2A28 ~ SBLX SLZ919DU TO SG POPGSOTO™OC™~™CO 8g 
093435 003425 6052 00 O10 2829 TPL SL3 DISPOPGS <@ 
093436 200001 1163 00 000 2830 CMPQ LeFRST99PeLRM *ANY FOUND se = 3 "Be 
0N3437 003442 6012 00 O10 2832 NZ SL5 a 
003440 2833 Z0PS ov @ 
03441 003447 6002 00 010 2834 TZE SL6 *NOe TABLE IS EMPTY 5 
003442 2835 SL5 FQU % ae cae we en Se ae 
093442 777774 6232 13 000 2836 EAX SLY e=LeLRMeSLY *POINTER TO KPX hed 
093443 200002 7433 00 000 2837 STX SLYsLePTReePeLRM  *SAVE KPX 
093444 003453 3762 00 010 - 2838) ANQ SLMASK *CLEAR URGENCY FIELD se 
093445 200001 7563 00 000 2839 STO LeFRSTsePeLRM *SAVE TIME OF ARLM .........©)©@§———— =< © 
003446 000000 7102 11 000 2840 TRA »SRTLRX *RETRN ie 
903447 2841 SLE pou. ee ee 
0N3447 000100 3362 07 000 2842 LCQ =0100sDL «® 
03450 200001 7563 00 000 2843 STO = FRSTesPeLRM SHOW NO ENTRY TS - 
0n3451 000000 7102 11 000 2844 TRA eSRTLRX #RETURN 
«903452 2845 SLRPTX BSS 1 _ X PTX ~ .® 
093453 037777777700 COO 2846 SLMASK OCT 37777777700 a 
003454 O37? 7??? 177? O00 2847 SLMAX OCT OST?TUTTTTUT NN 
€€ @ 
Ze 
be 
a | 
62 
82 
z® 
9¢ 
Se 
z@ 
94 
ee 
_ 2®@ 
. : = oz 
6k 
a @ 
se i@ 
a@ 
oL 
«© 
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rh hg a eae a a eh ee er a Se 
ag : S 
Be A ROUTINES 
9S 9S 
ss 2849 & gc 
@.. | 2850 * DYESPATCHER GATE SHUT/OPEN ROUTINE TTD 
&s 2851 * TSX ZsDSPOP/DSPST - 
zs 2852 * . zs 
@ : 003455 2853 DSPST EQU # ~@ 
ag 003455 2854 2 SHUT eCRDSPsePecR SHUT DISPATCHER GATE * 
6Y 093460 000000 7102 Ill 000 2855 TRA oZ 6Y 
eo: | 003461 2856 DSPOP  EQU * | 
ty 003461 2857 eOPEN  eCRDSPoePeCR SHUT DISPATCHER GATE | s 
or 093463 O000000 7102 1il 000 2858 TRA eZ ov 
& Sp 2859 * > @ 
rr 2860 * ALARM TABLE GATE SHUT /OPEN ROUTINE vy 
ey 286] * , : ey 
ee. as 003464. 2862 LRMST  EQU % ~~ @ 
ty 093464. 006031 4726 07 O00 2863 LDP Pei RMeSDeLRMsDL id 
ov . 46 ZRAG e SHU LeG wLeere ov 
OO: 03470 000000 7102 11 000 28645 TRA 92 , 7 «® 
BE 003471 2866 LRMOP EQU * gE 
re 003471 2867 eOPEN LeGATEwlesPeLRM ic 
@ :: 003473 2868 LRMOP2 EQU x « @ 
ze | 093473 006133 4726 07 O00 2849 LOP PekKLsSDeKL DL *#RESTORE P.KL Bs 
ve 003474 000000 7102 IY 000 2870 TRA a2 ve 
®@ ce 2871 * «@ 
eT 2872 *  £PROCESS STATUS TABLE GATE SHUT/OPEN ROUTINE Te 
be 2873 * le 
@ o€ 287% * . oc @ 
6z 003475 2875 PSTST EQU * 6z 
Be 0N3475 006136 4/46 00 2876 LDP aP 9 e 9 a2 
@ 003476 2277 eSHUT = Le eo Pe PST 2®@ 
8 “093501 000000 7102 Il 000 2878 RA oZ 97 
az 003502 2879 PSTOP EQU % 
@ 003502 2880 eOPEN ~leaewPePST 
ez 003504 000000 7102 11 O00 = 28a1 TRA 92 | | 2 
Be a ee eg RG © ee ee ey fe ee 
@ : | , 2883 * I/O QUEUE GATE SHUT/OPEN ROUTINE 2@ 
0z ZBRG * 02 
- 003505 2885 QGTST FOU # és 
@: 7 003505 2886 2 SHUT eCROGTsePeCR : a | 
093510 000000 7102 11 000 2887 TRA oZ | . 
@: , 003511 2889 eOPEN eCROGT»sPeCR a) 
vl ON: | ¢ 89C 9 vl 
el 2891 * : 
@e.n 0 892 * AJ o]9) A - MARIA AWS r\ bd |] el ix »e , \] 
i 2893 * 
“oo. eo ee 7 eo Lae | hon GINS) eeu. ee ee 
@: 093514 006027 4726 07 000 2895 LOP PeGTMsSDeGTMeDL 
8 003515 2896 » SHUT ~LesPeGTM . gg 
, 093520 000000 7102 11 O00 22897 © TRA Z 
& 9 898 G 
Ss : 
a a ee ee 
@: 
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8S 

BASYC ROUTINES | ~® 
9S 
003521 2899 eOPEN wlasPeGITM = GS 

093523. 000000 7102 11 000 2900 TRA oz ~o @ 
2901 * ES 
Tae eS ye eran = ee OTe ERE MACRO Gg. Ses ee RR gee eee ee as 
— 2903 * | il 
003524 2904 FXITO EQU * 0s 
003524 2905 eEXIT es 

TNHIG” CGAVESON ee eee ee ee ee 
093524 000002 6306 04 3526 EPPRO %*4#29$ is 
093575 700006 7103 00 000 TRA SCREEN @SPeCR. ge ee ee en ee eg iad 
023576 000000 000000 000 ZFRO oRGs cs 
= _ INHIB. RESTORE = 
003527 2906 \FXITI eEXIT 1 ev 

: INHIB  SAVEsON | av @ 
003527 000002 6306 04 3531 FPPRO %420S tw 
093530 700006 7103 00 000 TRA  gCREXTwsrecR. °° => Se ee 

03531 000000 000001 000 ZERO eRGsl « @ 
INHIB RESTORE a 
LE 

ee “e 


ere seer ernnsarneeersnarnatenmnninemnnsnsinee semanas sienna enema te A efits essence PPPs SS ererrsrunenststnteasfehhtatnrPsNueAeR tne SS Stree srerrsrrerrussivennnvvisssessssene ener eeAtA SAAS re neSOReO Aer 


@- 


Oo -~ NN mM tt in wo nN a 


1248T 02 12”"27"79 09.322 H6600J7.057 GCOS IV. 4VX DISPATCHER 791219D1Sp PAGE 87 =e 
RASTC ROUTINES s® 
2908 * 
2909 * TIMER REGISTER SET ROUTINE (20000000000 
2910 * eS 
2911 * INTERFACE LDOTMX zs 
2912 * FUNCTION = SETING TIMER TO MAXIMUM VALUE ~@ 
aii 2913 * CALLING - ’ M alae 
2914 * REGISTER = PeCRePN MUST BE SET ne 
BOE HR TRE EST RO gy 
2916 * ro 
2917 * INTERFACE LDT 9” 
2918 * FUNCTION = - SETTING TIMER TO QeREG : ? a) 
2919 * CALLING ZeL e 
2920 * REGISTER = ~ PecRsPn MUST BE SET 
2971 * @ BIT 0-27 TIME IN MICRO SEC x) 
29272 * i 
— CSS DC~CSSO SS CLTMK) EQUUS OAK VALE 
093532 300000 2362 03 COO 2974 LDA =0300000 DU *MAXIMUM TIMER «< 
eet eA a we ee es ed ee Pee ee ee if 
_ 003533 2926 LOT FOU # 
see 003533 700072 7563 17 000 2977 ~— STQ”eCRCCK 9 PNoPeCR = RUSE SCRATCH PAD 
003534 700072 6373 17 000 2928 LDT eCRCCK ePNePeCR 
0n3535  O 2 | 292 R Pd 
2930 * 
2931 * £4£zTIME INTERVAL RETRIEVE ROUTINE pees hes 
2932 % INTERVAL SINCE LAST CALL TO RSCR 
2933 % INTERFACE RSCR 
2934 % FUNCTION > READ sees AND GET INTERVAL SINCE LAST CALL 
2935 * [ = 
2936 * REGISTER ~ PeCR»PN "MUST BE SET 
P23 * *, VTA Vi “RVA x Sh olg = 
2938 * Q REGISTER RES TROCER. sz 
2939 * es | 
003536 2940 RSCR EQU # | = 
003536 OQ fy O) ¢ DOOD 4 SP as 75DeRMO OD ys ATNIE ees 
003537 000040 4133 00 000 2942 RSCR SCUCLK 9 ePeRMS 
003540 O00 F2 6 000 2942 Q Ta" K oPNeoPe CR ESAV TOW 7, * 
ae, 003541 2944 RSCRR EQU * /* FOR INTERRUPTED ACCOUNT 
003541 54 E eCRLCKePNoPe 
093542 003544 6052 00 010 2946 TPL #42 NO CARRY OUT | 
DOsSao. “OU00C0 Sese Do O0uU. ,o4r NEG.” = Oe ee ee ee 
0N3544 700072 2353 17 000 2948 LDA eCRCCK »PNePeCR 
03545 4 296 ecR aPNeP es 
0N3546 O00000 6352 00 000 2950 EAA 0 —— 
0N3547 000040 72 00 000 2951 LLS 2 FINTERVAL IN 16 MICRO \REGe 
093550 O00000 7102 11 O00 2952 TRA oZ *RETURN 
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BASIC ROUTINES a 
9S 
2954 % is 
2955 * THIS ROUTINE PUT MESSAGE INTO POPGQ eet 
2956 * INTERFACE | ee 
2957 * FUNCTION = PUT PB ABE ON INDEX (eWekKPX) A GQ INTO POPG ¥ 
2958 * PRECAL PeCR @ 
2959 * MESSAGE Kode KPKe Ae Cg 
2960 * CALLING TSX ZsPOPQ - 
2961 * GUEUE FULL. RETURN OO en ee 
2962 * NORMAL RETURN 4 
OBS ®  OCOUdéROOST.UOUO~#~C*“CLOST POe Ple XOe XO gy 
2964 * _ or @ 
000001 2965 P.PON SET Pl i 
000002 2966\XPTR SET 2 ee 
000002 2967 XCNT SET 2 »@ 
007777 2968 POQMSK BOOL TIT *POP Q POINTER MASK SYMBOL . 
000003 2969 XPOPQ SET 3 a 
003551 2970 POPQ  FQU * «<® 
093551 006041 4716 07 O00 297) LDP P.POQsSDePOQsDL *GET SEGMENT ge 
003552 2972 SHUT le sPePOO 
093555 100001 7223 00 000 2973 LXL XCNTolssPePOQ *ANY QUEUE SPACE .o 
093556 003572 6002 00 010 2974 TZE POPQS *NO : 
0N3557 100001 O113 56 000 2975 NOP Tet : A o 
0N3540 100003 2223 00 000 2976 LDX XPTRo39ePePOQ *GET NEXT AVAIL POINTER «®@ 
093541 OO7777 3622 03 000 2977 ANX XPTR »POQMSK oan ts nie 
093542 100000 7433 12 O00 27978 STX XPOPQseXPTRePePOQ *MOVE MESSAGE | e 
093543 100000 4463 12 000 2979 §XL KPX«sXPTRePePOQ «® 
093564 100001 7553 12 000 2980 STA 1sXPTRePePOQ | ss 
093545 100002 7563 12 000 2981 STO 2eXPT 
093546 100003 0113 53 000 29982 NoP 3+AD»sPePOQ *TALLY TO NEXT 
003547 003572 6072 00 O10 2983 TTF POPQS —=———=IF END OF QUEUE: GODY © — es 
093570 100002 2353 00 000 2984 LDA 29ePeP0Q *REFRESH TALLY 
093571 100003 7553 00 000 2985 STA 39ePePOQ 
003572 2986 POPQS FQU * 
: 2 29R7 2 OPE wlee 7 
003574 000000 6222 12 000 29288 EAX XCNT 9 9XCNT *CQULD WE PUT IT IN _ 
2989 2 Pp HOL 
2990 *ZERO WHERE GATE WORD PLACED 
093575 000000 6002 Il 000 2991 &4x.1'2—& Osz  £4«+%¥NOS FULL RETURN 
093576 000001 7102 11 O00 2992 TRA 192 *OK GOT IT 
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RASITC ROUTINES i® 
9S 
2994 * 
2995 # CKLMT ROUTTNE CHECKS U SERVS PROCESSOR TIME LIMITS Oe 
2996 * €g 
4997 ®  PRECAL PaSSA9 PeCR  SHUT™ DSP TS 
2998 * CALLING TSX CKLMTXsCKLMT ~@ 
2999 POST AgsX0 0S 
3000 * IF OVER TIME LIMTs GOES TO eMBRTe3 » 
003577. 3001 CKLMT  EQU %  ) 
003577 600005 2353 00 000 30n2 LDA eSATTRosPeSSA *I1S THIS PRIVILEGED SLAVE i 
093600 400000 3152 07 O00 3003 ~~ CANA eRe EMM gy 
003601 003630 6012 00 010 30n4 TNZ CKLMT3 *OK DON'T CHECK TIME LIMIT _@ 
0N3602 600003 2343 00 000 3005 SZN SALT 9 9PeS5SA ¥PROCESSOR TIME vy 
0N3603 003606 6046 00 010 306 TM9Z CKLMT 1 *NO TIME LEFT 2. 
093604 600000 2343 00 000 3007 ~~ 5ZN © SACHT 9 oP e SDA VITY CHANEL TYME _,@ 
093605 003630 6052 00 O10 3008 TPL CKILMT3 *LEFT OKe — 
a OOS606 S009 CRLEMTL BOUL 
0N3606 600017 2363 00 000 3010 Lod a STATES oP eSSA | *IN CLITICAL « @ 
0N3607 176320 3162 03 000 3011 CANO TeSY ote TLUAD+e TUMM4+ eI BRI +e  SYOT DL a 
093610 003630 6012 00 010 3012 TNZ CKLMT3 *WAIT ALITTLE BIT = 
ON3611 600261 2363 00 000 3013 LLOQ «ST2CSesPeSSA IF THE TYPE Z CRITICAL SECTION COUNT 0000002077 —™® 
003612 777777 3162 03 O00. 3014 CANQ @16DU ISNT ZERO» THEN WE MUST NOT ABORT NOW 00000020 i 
O03613 003630 60 00 O10 T? "KLM ON= ZERO : OOO0NG 20 = he 
0N3614 600003 3363 00 000 3016 ECO eSALT#9PeSSA = «@ 
0N3615 567000 1162 07 000 3017  CMPQ 6435000 sDL RS SEC PAST ss ae 
003616 003622 6052 00 O10 3018 TPL CKLMT2 *TOQ LONG SOME ERROR IN SYSTEM ‘ 
003617 600043 2363 00 000 3019 LDQ @ SFL VL 8 Pe SSN CFTC oe 
093670 000002 1162 07 000 3070 CMPO 29DL 3 *IN SYSTEM es 
073621 003630 60 OO O10 301 TRO LMT WA 3 MOR au ge 
003622 3022 CKLMT2 EQU * | z® 
003622 3073 OPENe DSP - 
0N3623 000005 2362 07 O00 3074 Loa eACOO5 eDL 184 RUN TIME EXHAUSTED 00000020 
003624 003705 7012 00 010 3075 TSX ZsRDSPRG “*#LOAD ASReNSAR PSR TO eGOTO ©. ©” 
003625 3076 BRTl. 3 FQU * €z 
es 05625 S097  eGOTOeMRBRT Lod ge 
INHTB SAVE 90N z@ 
093625 000002 6306 04 3627 EPPRO 4420S og 
093626 700010 7103 00 000 TRA eCRGTOeePeCR - 
093627 000036 000003 O00 ZERO eMBRTL oS Tg & 
| INHTB RESTORE r 
"=; . =~ = s0esGsC S028 CKLMIG LOU a ee ee ee ee 
093630 000000 7102 11 000 3029 TRA »CKLMTX @ 
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RASTC ROUTINES ~® 
9S 
3031 * Ss 
3032 % SAVE CURRENT PROCESS STATUS INTO DDS STACK FOR SOFTWARE" 9g 
3033 % INTERRUPT PROCESSING : 
3034 * PRECAL SHUT - DSP + P.SSA zg 
3035 * CALLING TSX ZsSVLVL | .@ 
3036 * POST LOST XOe As PO» Xl os 
000002 3037 XPTR SET 2 ey 
000000 3038 XTMP SET 0 ov @ 
000000 3039 FBX SET 0 is 
000000 3040 PePSH SET PO . 
000000 3041 P.DDS SFT PO ov @ 
; 003631 “3042 SVLVL EQU % - 
03631 007273 7102 00 010 3043\1YSEVT TRA YeSEVT *NOP IF TRACE OFFe START OF EVENT , 
3044 ®PROCESSING 
| 003632 3045 SVLVLN EQU * a 
093632 006204 4706 07 000 3046 LmP P.PSH9S5D.PSH»DL ov 
03633 000026 6707 00 000 3047 LoD PeMDSsPHeDDS 9 »PePSH «@ 
003634 001761 4706 07 O00 3048 LOP “PeNDSeeCTYP®DL | #%*“CHENGE TYPE - 
-0N3635 600031 7203 00 O00 3049 LXL XTMPeeSDLVL9oPeSSA /* SET POINTER TO NEXT AVAIL IN DDS 7 
093636 000000 6307 10 000 3050 EPPR PeDDSseXTMPePeDDS « @ 
093637 000100 1007 00 000 3051 MLR (L)el) SAVE 10 WORDS OF .«STEMP IMPR6095 se 
093640 600204 0000 50 000 3052  ADSCO  eSTEMPseGUsPeSSA OO MPRETOO og 
03641 000002 0000 50 000 3053 ANSCI = De TEMP 9 9409PeDDS IMPR6110 a | 
003642 600214 7537 00 000 3054 ST55 eSTMPA GP eDSA ST ES 
093643 600214 2373 00 000 3055 LDAQ eSTMPAs sPeSSA /* MOVE SSR 
003644 000000 7553 00 000 3056 STA HeSSRe6Pa0D>.. °° Oe ee 
0N3645 000001 7563 00 000 3057 STO DeSSR+leePeDDS a 
093646 600043 2553 00 000 3058  £4LDA eSELVLesPeSSA /*® SAVE «SELVI gg 
093647 000015 7553 00 000 3059 STA DeFLVLesPeDDS : 2@ 
093650 600216 2353 00 000 3060 LDA 0 OTKSP 9 ePe SSA 92 
093651 000016 7553 00 000 3041 STA DeSTKPesPeDDS , 
093652 600221 2353 00 000 3062 LDA eSVFLTeePeS5A SAVE eSVFLT FOR 105 °° |. ©)0»WuSMPRO6T700 
093683 000017 7553 00 000 3063 STA DeSVFT9ePeDDS | IMPR6180 
093654 G000le 2: 00. 000 3064 LDA 2 OSA 8 oP a DOF RSAV KCK CONTROL. WORD 
003655 000020 7553 00 000 3065 STA DeSSA2sPeDDS 
093656 777440 6352 01 000 3066 FAA ~eSSAWKeAU 7® THEN MOVE STACK BODY 
093657 000002 7352 00 000 3047 ALS 2 
093660 000140 1007 40 000 30468 #£4.MLR (lel)o(Yel) © 
0N3661 600340 0000 01 000 3069 ADSCS ~— SSAWK 9 #AU 9 Pe SSA . 
ONS662 O000¢1 UOO OU O00 30 O AN 5 Me SOATLYSAUIMreDD aa 
093643 000002 7712 00 O00 3071 —ARL 2 /* GET STACK SIZE > @ 
OMs644 O000le 6252 01 000  s07>. = EAA” DeSohelelsAU.° CC a ee eS en ee 
003665 600031 2363 00 000 3073 LDO eSDLVL 9 oP eSSA /* UPDATE DDS STACK POINTER 
0N3666  OT7777 7563 O01 000 3074 ®#4STQ Sel VGsRUsPsODS ee ge ee 
003667 000022 7712 00 000 3075 ARL 18 /* ADD NEW FRAME SIZE | ‘i 
O0N3670 AUOO () U VOC 076 Ah eae DL Vieskre ‘ U UK WAK e byD TO NEA AVA] , ot 
0N3671 002100 2202 17 010 3077 LOX. EBX sCCFLG»PN *EVENT LEVEL ; & 
ON3672 6 1 3078 EBX. v9Pe a a ES 
03673 000340 6352 00 000 3079 EAA 2 SSAWK /* RESET .SSA STACK TO INITIAL POINT 
093674 G6OO0I2 7553 00 000 3080 STA eSSA9ePeSSA Sg 
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@ RASTIC ROUTINES ie 
9S 9S 
gg 0N3675 600017 2353 00 O00 30a1 LDA e STATE 9 sPe SSA /* SAVE «STATE gs 
@ .. 093676 000014 7553 00 000 30R2 STA DeSTAT®sPeDDS ——~,.@ 
es 093677 003704 3752 00 010 3083 ANA S.STAT *CLEAR BITS THOSE ARE SAVED ~ - 
zs 093700 600017 7553 00 O00 30R4 TA eDTATE sobre : FOR UB PRO ) zg 
@ : 003701 000200 3152 07 000 3085 CANA e TALRMeDL *xIF ALARM SET ~@ 
e ON3702. 000001 6002 11 000 3086 TZE De SVLVLX ONO ALARM RETURN TS 
ep 903703 000000 7102 11 000 3087 TRA sSVLVLX *ALARM SET RETURN te ite 
@: 03704 777777 O'77T77 000 3088 SeSTAT ZERO wTeelweTRELCmeTRDBK=*TWAKE ; ~~ 1 @ 
ie 3089 # is 
9 3090 * ROUTINE TO LOAS REGISTERS ~ ASRe PSRe DSAR ov 
@: 3091 * CALLING TSX ZeRDSPRG @ 
vv 3092 * POST a POe Z vy 
* 003705 3093 RDSPRG FQU 
@.: 093705 001764 4706 Of 000 3094 LoP sa SSR —¥5/5 FRAME ACCESS. eo 
1% 003706 001761 4706 07 000 3095 Lop POseCTYPsDL *#CHENGE TYP . 
. ON3707 000006 1707 00 000 3096 LODSA  .WDSAReePpO  *DSAR 
@ «: 093710 000012 7707 00 000 3097 LDAS aWASR® PO *ASR « @ 
ee 093711 000016 7717 00 000 3098 LDPS SWOSR*sPO. °° WPSR.- Oe a 
ie 003712 000000 7102 11 000 3099 TRA 02 *OK 7 
@ « «@® 
GE Ge 
ve ve 
@: «@® 
ce ran 
4 LE 
@ «: oc @ 
62 6¢ 
ge 82 
@ u® 
| 92 92 
GZ? SZ 
@ 7 @ 
£2? £2 
ce ce 
@ 2@ 
02 0c 
6h 64 
@: a | 
Ab Zt 
91 OL 
@: es 
vi vet 
@: / ) 
il Lt 
OL OL 
& 6 6 & 
8 8 
Z ZL 
@: oe alana 
S S 
@ : 
cA 
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gs 8S 
@ .: RASI1C ROUTINES s@ 
9¢ 9S 
ss 3101 * ss 
®@ 3102 % CHECK EVENT oo 
€S 3103 * ES 
_ 2s 3104 * PRECAL SHUT # DSP zs 
@ : 3105 * P.SSA <® 
os 3106 * CALIGING TSM CKEVIXOCKEVE UOC eee mn Te 
6r 3107 * EVENT PAY RETURN #» EBX HAS LEVEL NOe ev 
@ STaE * NO EBENT PAYABLE RETURN 00 gay 
ly 3109 * POSTCAL IF CONTINUE RETURN ail DATA MAY RE RETURNED y 

ov 3110 * IF DEAD = CCFL Ge y 
@: 3111 % IF PAYABLE RETURN wean = LEVEL NOs , «@ 
vy 3112 % *CCFLG 0 m 17 HAS LEVEL NOe 18635 LOST . 
ev 3113 ix LOST As XO - eo 
@: 3114 * | - 
i¢ 000000 3115 XSTT SET fe) *%eSTATE LOAD INDEX i 
oy —_ 000001 3116 XPTR SET 1 ¥REPEAT INDEX 
@« 000000 ~——-3117 FBX SET 0 *RETURN INDEX » LEVEL M | «®@ 
ae 000377 3118 LCKBYT BOOL 377 *LOCK BYTE FIELD IN «SPA ea a, 
ls 003713 3119 CKEVT FQU * | ie 
@« 0N3713 600017 2203 00 000 3170 LDX X5TT oe STATE * t9Pe SSA *IF CURRENT STATUS IS HIG ~~. & 
gs 0N3714 600117 1003 00 000 3191 CMPX XSTT eeSROST99PeSSA ¥THAN REQUESTe REQUEST IS NOT ee 
ve 003715 000001 6032 11 000 3122 TRC lsCKEVTX — WACCEPTABLE ag 
—@e« 093716 002100 7412 17 010 3123 STX CKFVTXsCCFLG»PN *SAVE RETURN «@ 
ze ON3717 000000 6212 00 000 3124 FAX XPTRsO See eee 
be 0937720 600117 2353 00 000 3125 LDA eSRQST 9 ePeSSA 
@-: 03721 020240 5202 02 000 3126 RPT CKLSZ929TNZ + @ 
e772 003773 3152 11 010 31477 CANA CKLSTsXPTR 
re 003723003766 6002 00 O10 3198 TZ —CKCONT NO REQUEST ROUND 
@ - 093724 777776 2352 11 000 3129 LDA =2sXPTR es 
9% 0037925 600017 3153 00 000 3130 CANA oD TATEa Pe * L ADY IN ¢ TRO 9z 
oz 003726 003766 6012 00 010 3131 TNZ CKCONT *CONTINUE THE PROCESSING sz 
@« ON3727 777777 2352 11 000 3432 LDA =1sXPTR *GET LEVEL NO sone eat oo wee 
ez 093730 000000 7102 05 O00 3133, TRA 9AL *GO TO PROPER ROUTINE ez 
zz ; 003731 3134 CKSW EQU * zz 
@ : 003731 600224 2343 00 000 3135 SZN 2 SRMWK 9 oP e SSA z@ 
oz 003732 003766 6012 00 O10 3136 TNZ CKNSWP —— —— gz 
ai 093733 600172 2343 00 000 3137 SZN 0 SSPRO99PeSSA ae 
@: ON37T34 OOS7T66 BUl2 OO OLO 3138 2 TNZ  CKNSWP OD 
Bi 093735 600017 7203 00 000 3139 LXt XSTT oe STATEs Pe SSA | i 
ol 0N3736 OOl1L0] 02 03 000 3140 CANX 4 ve TNTSWte ra : 
@: 093737 003766 6012 00 O10 3141 TNZ CKNSWP *DON'T SWAP 
2 093740 600010 7203 00 000 3142 LXL XSTT 90 SPASS 9 oP e SSA De See tm eh ee ee ee ee 
“i 0N3741 000377 3002 03 O00 3143 CANX XSTT eLCKBYT eDU *IF LOCK BYTE IS IN USEs CANtT SwAp 
@: ON3742 003766 6012 00 O10 3144 TNZ CKNSW 
t 093743 600047 2343 00 000 3145 SZN aSFSYS9ePeSSA IF ANY HASH#LOCKS 00000020 
8 003744 003766 6012 00 O10 3146 FN CKNSOWP OCKEDs DON'T SWAP elelelelelerae 
@: 093745 003756 7102 00 010 3147 ~~ TRA CKCAN | | 
8 137466 3148 C¢ | 7 255A GOT ABORT REQUESTs ~L 
a 003747 000001 3002 03 000 3149 CANX XSTT + ¢R2C80sDU HONOR IT IF THE TYPE 2 CRITICAL, 00000020 
@: 003750 003756 6012 00 O10 3150 TNZ ‘CKCAN "TON OVERRIDE BIT IS ON ALSO pN000NZU 
Ss 
v 
@: 
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8S 
BASIC ROUTINES @ 
9S 
093751 600261 2203 00 000 3151 CKCNT  LDX XSTT 9 eS5T2CS9 9PeSSA as 
093752 003756 6002 00 O10 3152 T2E CKCAN « NO TYPE 2 CRITICAL SECTION COUNT 5 
093753 002104 6042 00 O10 3153 TMI ABT ¢ COUNT SHOULD NOT BE NEGATIVE. ABORT es 
003754  OO02100 dele O10. 3154 CDX KEVTXs oPN UNT JS POSITIVEs 50 JU ONTTNU : 2s 
093755 000001 7102 11 000 3155 TRA Ll sCKEVTX _»@ 
003756 3156 CKCAN EQU % - 
093756 000000 6202 01 000 3157 EAX EBX«sAU *SET LEVEL NO. > 
003757 002100 2212 17 O10 3158 LOX CKEVTXsCCFLG@PN RESTORE OO 
0N3740 002100 7552 17 O10 3159 STA CCFLG9PN . 
Ona741 000022 7Tfl2 00 000 3160  ARL. 18 0 gh 
0N3762 600043 1153 00 000 3441 CMPA eSELVL 9 9PeSSA ov @ 
093743 000001 6002 11 000 3462 TZ— leCKEVTX EXECUTION LEVEL IS HIGHER 0 
093744 000001 6022 11 000 3163 TNC lL eCKEVTX : 
093745 000000 7102 11 000 3144 TRA sCKEVTX w@ 
003766 3165 CKCONT EQu * \v 
— SOS TOSCO CKNSWP EQU TT OF 
093766 002100 2212 17 010 3167 LOX CKEVTXsCCFLGePN «® 
003747 000001 7102 11 000 3148 TRA leCKEVTX — _— ee 
003770 3169 CKDED EQU # ik 
093770 000000 6202 01 000 3170 FAX EBX» sAU | ~® 
0N3771 002100 2212 17 010 3171 LDX CKEVTX sCCFLG»PN se 
003772 000000 7I02 Ti 000 3172 | TRA eCKEVIX ve 
003773 3173 CKLST  EQU * ___«® 
—_§A3773 600000 GO0000 000 3174 ZERO eRDEAD+eRFDSC 27 ze 
093774 000010 003770 001 3175 ZERO BsCKDED le 
003775 140000 000000 O00 3176 ZERO sRCPLT*@<ROPRS Oe  ] 
0N3776 000007 003756 001 3177 ZERO 7sCKCAN ez 
093777 Ol0000 O00000 000 3178  ZFRO eRGEPR e 
094000 000006 003756 001 3179 ZERO 6 sCKCAN z® 
0N4001 004000 000000. O00 3180.  — ZERO eRDMM 0 9 
0n4002 000002 003731 001 3181 ZERO 2eCKSW PTCH5350 _ cz 
0n4003 000400 600000 000 3182 “ZFRO.eRSYCCO : | _—= Se x® 
0N4004 000005 003756 001 = 3183 ZERO 5 eCKCAN ez 
04005 O00100 0000 00 3184 ZERO eRART ze 
094006 000003 003746 001 3185 ZERO 3 sCKBRT 00000020 ae ® 
094007 000020 000000 000 3186 Zeno @RSWP. °° > ee ee 02 
0N4010 000002 003731 O01 3187 ZERO 2eCKSW 
094011 000004 000000 000 3188 ZFRO oRCC 
0N4012 000001 003751 O01 3189 ZERO LeCKCNT 
OO ES STOO CRLSTE EQU 
000020 3191 CKLSZ22 EQU CKL STE@CKLST es 
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SYMBOLS AND DATA CONVENSION IN MACRO PROCEDURE 


3194 * 


3195 * INDEX REGISTER SYMBOLS gy Seay) eae ee ee ee ee 
; 3196 * eS 
000006 3197 KPX SET 6 | PROCESS TNQE XO 
000007 3198 PN SET 7 PROCESSOR INDEX. | 
000000 3199 XO SET 0 PECIFI BY ie 
000001 3200 Xl SET l & 
000002 3201 X2 SET 2 ov @ 
3202 * Lv 
3903 *  POTNTER REGISTER SYMBOLS (00000000 gt 
3204 % } ov @ 
0090000 3205 PeMDD SET PeMCRO se 
000000 3206\P.SSR_ SET P.eMCRO ae 
: 000000 3207 PaPSH SET PeMCRO —— 2» @ 
000000 3208 P.DDS SET P.MCRO " 
: 3709 * 
3210 * MACRO CONTROLL STACK ENTRY TYPE SYMBOLS 
3711 * | 
| 770000 3212 STMSK BOOL 770000 BIT 18823 1S TYPE FIELD 
000000 3213 STYPO BOoOoL 000000 CALL VIA XED ~~ HCM | 
010000 3214 STYP1 BOOL 01n000 CALL VIA ENTeDSC TYP 11 
020000 3215 STYP? BOOL 02000 esc TYP. 
040000 32716 STYP4 BOOL 040000 SSA MODULE LOADED (ASSIGNED) 
100000 3217 STYP8 BOOL 100000 GATED HCM WAS CALLED TT 
200000 3218 STYP16 BOOL 200000 eSSA STACK SAVE OCCURED 
000007 #43219 SEMSK BOOL OOO007  -EXECUTION LEVFL CODE FIELD | |©§©§@©© 
000377 3220 DDSMSK BOOL 000377 DDS STACK SIZF FIELD = MAX 256 WORD 7 
3221 * 
3772 * 
: | 3993 * DATA CONVENSION IN MACRO PROCEDURE ( MORF CONVENSIONS ARE OO, 
3224 * ESTABLISHEN IN OVERLAY/GATE MANAGER ) | 
3225 * 
3226 x eSTMPA/Q@ AQ=REGe SAVE WHILE RUNNING IN MACRO PROCEDURE 
3277 * RU 0 Y R 
3228 * » STMPX XOREG SAVE WHILE CLIMB OPERATION CONCERNED 
oo 3729 * AFTER Xd “ODED MOD#/EP¥e XO IS R ORED 
3230 * AND DATA SAVE WHILE RUNNING UNDER INHIBIT FOR 
OO RE R!™!™!™!™!™©)”D.. UMGATE MANAGER INTERFACE0€©=—™—™—OUO™~C~COCCCC”CC 
3232 %* 
23°: * 6 TMPW MACRO oF. Gariyy, * oy F\ AV vad J : A] ely, RT AY 
3934 % MANAGER ( GATED BY eTLOAD BIT IN eSTATE ) 
——~—~<CSSS GS HK~~™~C«SRMWK203 VEC WORD TO SHRINK SSA‘S ISR, SET BY OVERLAY = # «© ©”. v1 
3236 * : MANAGER . 
3937 *%  }}©)3©OR- TO DO OL7O IN DM ~~ 2 @ 
3238 * tH 
23 * IND R ; ol 
400000 3240 SEGIN BOOL 400000 | a ) 
3741 * , 


oo ® 
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8g 
SO RE eC EB ee COAL SEAL EY i®@ 
9S 
3243 * 7 
3244 * MACRO PROCEDURE FOR eCALL/eCALLA/eCALI X/eCALLY | os 
3245 * EG 
3746 * THTS PROCEDURE MAK Ack ENTRY IN CCORDING TO = zs 
3247 * THE MACRO TyPEs AND CHECK THE CALLEEs TF THE CALLEE 1S NOT @ 
"3748 * REmFNTRANT HCMe THE MACRO CALLS OVERLAY/GATE MANAGERe 
3249 * THEN ENTERS INTO CALLEEE , ss 
“3250 * TRACE IS LFFT ALSOe IF OPTION SPECIFIFD 00 oo 
3251 * Ly 
ee ee ee are ee en ee pees Peay te ee Se © gem eS ee 
3253 * eCALLY MACRO ENTRY v® 
3754 * Poe 7 Tat 
004013 3255 CALLY EQU 
094013 001764 4706 07 000 3756 LDP - S5RoeS5RIDL _ 
094014 000032 6717 00 000 3257 LDD Pl seWDR19sPeSSR /* RECOVER CALLER'S ODR l#4 i“ 
094015 000034 6727 00 000 3758 LOD CO ase WDReeOPOOOR, a eae nnn ene Ge ey 
004016 000036 6737 00 000 3759 LDD P3eeWDR39ePeSSR | «@® 
O0N4017 000040 6747 00 000 3740 LDD PhaeWORG ese Se ee a Ce 
094020 001761 4706 07 O00 32741 LDP P.eSSRoeCTYP eDL IMPR5955 
094071 000021 761 OO 000 96? LAR! aWPTRleePe ry » IVER FA KDRVS A 75 MPRSBGEO 
0N4022 000022 7627 00 000 3243 LAR2 eWPTR2Ze9PeS5R | IMPR5970 
004023 0000 637 00 O00 DAG ~ LARS eWPTR39sPeSOR IPRS TSO 
094024 000024 7647 00 O00 3745 LAR4 eWPTR499PeSSR ~ IMPR5990 . 
She ee ee ees ee pe Gee cn ge eg en ee ee ee 
3267 ENTER INTO CALLXe THE OTHER INTERFACES ARE SAME 7 
De Se a a ee me ee ee ee GN 
3249 * ; 6z 
ee a aero ek ~~~ CUAL MACROOOENIRY.. a ep ee ae Ee 
3271 * XO = MOD# AND EP# 
OE Ba RT A Oe ee = eae Oe ra ee em a Wg ee se 
3273 * ODR*S = ISR Sz 
094025 3274 CALLX FOU * oe 
094025 006145 4766 07 000 = 3775 LOP P.SSA*SDeSSASDL /* RECOVER ODR 726 = 
ON4076 OO O UW OQ 776 ») > PeCKeradeCK a ae Sates 
0N4027 600214 7573 00 000 3277 TYCALX STAQ eo STMPA 5 oP eSSA | 
5078 * TRA YSCALK 7 ® MAKE eYCALX TRACE 9 IF OPTION OS 
0N4030 010000 2352 07 000 3279 LDA STYP1 »DL /* MAKE TYPE 1 STACK ENTRY 
094031 004034 7102 00 O10 3780 TRA CALLI  . 
3?81 * Lt 
282 * eCALC7eCATTA | = ioe: 
3283 * XO = MOD# AND EP # 
a 39R4 * 
| | | 004032 3785 CALLS EQU * 
0N4G032 600214 17573 00 O00 3786 TYCALL STAQ © STMPA 5 oPe SSN 
— 3287 % TRA YeCALL [. MAKE TRACE ENTRY IF OPTION a 
0403: O20000 0 000 7BR iA VYP7eD KR OF 2 S5A a YF fae oa oe 
004034 600043 2753 CO O00 3729 CALLI ORA eSFLVL 9 9PeSSA WITH eSELVL IN BIT 33035 
094035 600 7553 56 000 3290 TA ; 2IDeP. 
004036 3291 CALLP NULL ENTER HERE FOR CALLP VIA PMME 39 00000020 
004036 O 0 6 3990 FAA +X0 3 MOD# AND E 
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8s 
CC WE. ere Ue va te Rol eS OR LY s@ 
9S 
004037 000030 7732 00 O00 32793 LRL 18+6 _ 
094040 600220 2203 00 000 3794 LDX0 e STMPX9 oP eSSA ~ /*® RECOVER XO vs 
ONGO41 000014 7352 00 000 3295 ALS 18<6 7 és 
0N4042  O00006 7372 00 000 32796 LLS Wee ge hg eg, ee ee eee Oe pee We gam wre TT 
004063 004052 7102 00 010 3297 TRA CALL2 /* MERGE INTO MAIN .@ 
3298 * os 
—— 3299 % eCALL/eCALLA MACRO IN HCM ENTRY = 
3300 * P.eMCRO = IC AND SEGID SE SR ee 
B30] * . Li 
004044 3302 CALAH EQU x AF eCALLATHOM) ENTRY 
0N4044 600214 7573 00 000 3303 STAQ eo STMPAg Pe SSA ~@ 
0N4045 004050 7102 00 O10 3304 TRA CALL vy 
004046 33N5\CALLH EQU * /* «CALL (HCM) ENTRY Best} 
ON4046 600214 7573 00 O00 3306 — STAQ ee STMPA GOP eSNG 
ON4047 O77777 2353 00 O00 3307 LDA ~laePeMCRO /* PULL OUT MOD# AND EP# es 
soe Ne, OG OO. BROOM CALL, -“bOQU ° ORS ee 
ON4050 600012 4507 56 O00 3309 STP PeMCROeSSASIDsPeSSA /* SAVE RETURN POINTER «®@ 
094051 006130 4776 07 000 3310 TYCAiH LDP P.cRseSDeCReDL | ge 
3311 * TRA YeCALH © /* IF DETAIL TRACE OPTIONe GO TRACE | ‘a 
004052 3312 CALL2 FQU % «@ 
3313 SE 
3314 EVFRY CALC MACRO COMES HER 0 CHECK CALLEE ~ : ve 
3315 «®@ 
0N4052 006134 4706 O07 O00 3316 XeENT LDP PaMDDsSDeMDDeDE =———.—.—.U..U..TTT.......CC : OO ag 
3317 * TRA MCAL /* IF MODULE COUNT OPTION GO COUNT IT . 
094053 000000 2363 01 000 3318 LDO 9AUsPeMDD 7* IF THE CALLEE TS NOT RE*ENTRANT 7" @ 
004054 004070 6042 00 O10 3319 TMI CAL.OG HCMe GO QVERI AY/GATE MANAGER ez 
0040 3320 CALL3 EQU * . ez 
094055 000002 3162 03 000 331 CANO. 29DU /* IF TYPE IS GHCM 2z@ 
004056 004063 6012 00 010 3322 TNZ CALLG “GO COAD SDeHOCM 0 
094057 O00000 4707 01 000 3373 LDP PeMCROssAUsPeMDD /* GET ISR OF CALLE sz 
094040 000000 5076 05 000 3374 ~~ AWDX eAL ePeMCRO "AND SET ENTRY OFFSET(EP#) x® 
O0NG061 600214 2373 00 000 33275 LDAGQ oSTMPAaePeSSA ez 
0940462 OO0000 7103 DO O00 3376  — TRA eePaMCRO Tg 
: | 004063 3327 CALLG EQU * z® 
094043 006021 4706 OF O00 3378 LDP PaMORD a SDeHOM aD 
004064 000000 5076 06 000 3329 AWDX 2Q1#PeMCRO #* ADD MODULE BASE OFFSET * 
094065 O 00 3330 WD vALoPe :  @ 
0N4066 600214 2373 00 O00 3331 LDAQ eSTMPAe sPeSSA | ms 
ON40H7  OOOOND 03 00 O00 We oy .9PeMCRO ene Seg a 
3333 * | 
-_ 3334 * INTERFA WITH OVERLAY/GA MANAGER TO CA 
3335 *- A=REG = MOD# AND EP# Ee 
3336 * Q=REG = MDD ENTRY WORD .a® 
3337 * Lt 
So ee OR ot aa CALGON ee ate a Re ee cree ge te ea 
0N4070 000001 3162 03 O00 3339 CANQ 1eDU /* CHECK HCM OR SSA -@ 
004071 004106 6012 00 010 3340  £«+TN2 CALG ACM = SO GATFED MODULE =~ = 
ON4072 600217 7553 00 O00 3341 STA eo STMPWe oP eSSA /* SAVE PARAMETER IN «STMPW . 
094073 600104 7563 00 000 3342 STO eSLOAD+299PeSSA AND MDD WORD IN eSLOAD#S 00 > @ 
S 
v 7 
: @ 
ra 
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SC ACE LL. 6 CALLA 2 CAL EK. ws CAL Y ~@ 
9S 
0N4074 600214 2373 00 000 33463 VCALIV LnAQ eSTMPAs sP.SSA /* SAVE Ag IN S/S FRAME ss 
004075 3344 ICLIMB SD.TDSoesC vEAXO 7* GO ASSIGN MODULE ON OVERLAY SEGMENT ——- 
0N4075 004371713400 010 VFD LB/CLSSASO9/TL3 aL /Lol/O91/O006/Me es 
094076 00000060602: 000 S099 f/VeB/OlfeNol/eVec/ODe - 
ONGO077 600214 2273 00 000 3345 LOX PNoeSTMPAs ePeSSA | ®@ 
ON4100 600226 6707 00 000 3346 ~~ LOD PeMCROseSRMWK4200Pe55A /® GENERAT R FOR SSA MODU os 
0N4101 600214 7573 00 000 33467 VCAL2V STAO eSTMPAs9PeSSA : 
0N4102 600217 2353 00 000 3348 LDA oSTMPWoeePe 
004103 000000 5076 05 000 3349 AWDX sAl.ePeMCRO /* ADJUST ENTRY OFFSET (EP#) 
0N4104 600214 2353 00 O00 3350 LDA eSTMPAgoPe 
094105 000000 7103 00 000 3351 TRA ¢9PeMCRO 
004106 3352 CALG  EFQU * | 
004106 600220 7553 00 000 3353 STA o STMPX 9 oP eSSA /* PASS TO GTST ROUTINE 
ONG107 000022 7712 00 000 3354 ARL 18 7* MAKE «SSA STACK ENTRY 
094110 100000 2752 07 O00 3355 ORA STYP8 DL. OF TYPE 8 ‘ 
O0N4111 600012 7553 56 000 3356 STA a D5A9lDaPeDaA ov 
O0N4112 600214 2373 00 000 3357 LDAQ eSTMPA 9 oP aSSA x) 
ql 004113 3358 ICLIMB SDeTDSeeGTSTeEAXO 7*® SHUT MODULE GATE 
094113 005444713400 010 VFD LB/GTSTsO9/TIBel/Lel/O91/096/Me iz 
094114 000000606023 000, ©)>6>6WFD 1/0 99/0 08/091 7eNol/e0s2/092/0e12/SDe 7 
004115 600214 2273 00 000 3359 LOX PNeeSTMPAs 2PeSSA és 
ON4116 600¢14 "3 06 ~=—«000 3A0 AG <STMPAs. oP e SDF = 
094117 600220 2353 00 000 3341 LDA oSTMPX9 oP «SSA /* RESET MACRO PARAMETER | «@ 
094120 006134 4706 07 000 3342 — LOPS PeMDDSSDeMDDeD0 a 
0N4121 000000 2363 01 000 3363 LDQ sAUePeMDD /* RESET es 
ONG192 004055 7102 00° C10 G3a@° °° TRA © -CALUCS agg ga a 
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~EXIT <@ 
9S 
3366 * gS 
"33h7 & MACRO PROCEDURE FOR EXIT 2 
3368 * . es 
3349 * THTS PROCENUR POP UP ie ‘ ACK VTRYs AND HEN OC ORD TN e zg 
3370 * THE ENTRY TYPEs RETURN TO CALLER THROUGH PROPER FASHION ~@ 
3371 * os 
3372 * TYPE 0 LOAD POINTER THROUGH .SSA STACK ~ 
3373 * | TYPE 1 OCLIMB RETURN WITH S/S UPDATE AND CHECK (64) ‘ep 
3374 % TYPE 2 OCLIMB RETURN (16) ie 
3375 * TYP - A MODU MEN POP UP TP Tan ee Be - 
3376 * TYPE 8 OPEN MODULE GATE THEN POP UP STACK AGAIN a @ 
3377. % ie 16 e CK D I ND CK . vy 
004123 3378 \EXT EAU 
094123 600214 7573 00 000 3379 STAQ - SPA 88 sees 
0n4124 006130 4776 07 O00 3380 LDP PeCRsSDeCReDL 
4125 000000 2353 00 000 3381 LOA» sPeMCRO 7 ¥- GET -EXTg AND REGISTER BIT 
3382 | ® 
3383 HERE REENTS AFTER § LEASE OR OPEN GA e 
a 3384 le 
004126 3385 FXTYP EFQU * ; _ ‘«® 
004126 600012 2363 54 000 3326 LDQ oSSAeDI oP eSSA . oe 
ON4127 0000 3162 0 O00 33A7 CANO STMSK 9D TECK ACK ENTRY TYP 
noe ae 004135 6012 00 010 3388 TNZ EXT1 /* NOT HCM ) -e 
4131 600012 4707 51 O00 3389 TYEXTH LDP PaMCRdoeSSAel Pa SSA 
3390 * TRA YeEXTH /* TRACE OF EXIT TO HCM 
094132 000000 5077 05 000 3391 ° #&4;xAWD” = hl Che. Ads Ee ee 
094133 600214 2373 00 000 3392 LDAQ oSTMPAg oP eSSA és 
094134 000000 710 00 3393 TRA 99PeM = 
| 004135 3394 FXTL EQU % z® 
094135 020000 3162 O07 000 3395 #CANQ £SSTyP2eDL /*® IS THYS Type 2 (16 5/5)... ©)©)0)0)0DOODDDOOO™ 
094136 004150 6002 00 010 3396 TZE EXT2 NO ez 
14137 001764 4706 OF O06 3397 TYEXTT LDP  PeSSReeSSR eG DD 
3398 * TRA YeEXIT /* EXIT TO SSA/SLVe IF OPTION a 
ON4T40 0 39 ge 
0N4141 000007 3762 07 000 34n0 ANQ SEMSK »DL /* RESET EXECUTION LEVEL 2@ 
ON4142 OO1761 4706 OT O00 3401. => LDR PaSSReeCTVPeD o gg 
004143 600043 7563 00 000 3402 STQ eSELVL 9 ePeSSA 
004144 000004 0553 00 000 3403 ASA eWECTeePeSSR ig 
0N4145 600214 2373 00 000 3404 LDAOQ oSTMPAg oP eSSA ye 
a 00S WY: SR: WAT | > | el ON (| =; TS 
0N4146 000000713400 000 VFD 18/0e09/T7T13 91/191 /091/0 96/0 i®@ 
094147 000000010000 000 | VFD 17099/0e8/0el/Nol/08s2/0s2/1e12/70 SS 
| 004150 — 3406 FXT2 FQU % 
ONG150 O10000 3162 O 3407 CANO STYP1 DL [S THIS TYPE 
094151 004221 6002 00 O10 3408 |  TZE EXTOG No 
V4 ? OO1 £6 6H VU O00 34 y TYEX X De re Re aye 
 -B410 * TRA YeFXTX /* EXIT WITH 64 S/S TRACE, IF OPTION 
004153  O00007 3762 OY 000 3411 4ANQ  SEMSK*DL7* RESET EXECUTION LEVEL... 7, 
094154 001761 4706 07 000 3412 Lop PeSSRoeCTYPsDL 
DOsiGS  B0004S 156s 00 000 an er Sah SS SS SSS eee, @ 
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@ .: ~EXTT 
9S 
es 094156 000000 6362 05 000 3414 FAQ AL .  /* EXIT# To QO 
@ .. 0N4157 000004 0563 00 000 3415 ASQ eh ClesPeconk) yee ce Pp ye De 
és 004160 377777 3752 03 000 3416 ANA 20377777 9DU /* IS THIS EX1T PASS BACK REGISTER 7 
zs 0N4161 004200 6 10 417 = EXT2 Oe ae D zg 
@ : 094162 600220 7553 00 000 3418 STA o STMPX 9 Pe SSA | .@ 
os 004163 3419 FXT2) EQU * og 
6Y 0N4143 777777 4112 03 000 3420 LDE -1eDU 7 
@: 004144 004200 6342 07 000 3471 LOT ~~ “SYSIRsDL ~~ CO ee 
ly 094165 000000 5732 00 000 3422 FNO /* GET BIT NUMBER ‘ 
ov 094166 400000 2352 03 000 3423 LDA 20400000 sDU ov 
®.: ON4167 004340 4562 17 010 3474 STE EXTWK «PN _~@ 
ve 094170 004340 3362 17 O10 3495 LCO EXTWK »PN Er Se 
ep O0N4171 000012 7722 00 O00 3426 QRL. 10 ey 
@. ON4172 000000 7?l2 02. 000 3497 ARL O9QU R HER TER D INATION E MPRCS470  @ 
ty 004173 600220 6553 00 000 3428 ERSA eo STMPX9 oP eSSA ve 
ov 004174 000001 7362 00 000 3499 QLS ] ov 
@ « 0N4175 004272 7172 02 010 3430 XED RETRGw2 sQU PASS BACK REGISTER INTO S/S MPRC5490 «®@ 
ge 004176 3431 FXT22 EQU e BE 
eo 094176 600220 2353 00 000 3432 LDA oSTMPX 0 ePeSSA /* ANY MORE RFGISTER ie 
eo: ON4177 004163 6012 00 010 3433 — TNZ EXT2i YES 7 _ oe 
SE 094200 3434 EXT23 EFQU % Se 
og 094200 000004 2353 00 000 3435 — LDA eWICTesPe SSR NN Oe 
@ : 094201 000200 3752 07 000 3436 ANA =0000200sDL /* IF MASTER MODEs RESET X7e X6 | «® 
ee ONG202 004207 6002 00 O10 3437  £«x51T2E EXT24 ee an - ae 
te 0946203 000053 4473 00 000 3438 SXL PN» eWREGS+399PeSSR 
@ :: 004204 000053 7463 00 000 3439 STX KPXseWREGS+39ePeSSR i 
ez 004205 3440 OCLIMB | 62 
az 094205 00000071340 00 FD 8/0 et fle ® ] 82 
@ 094206 000000010000 000 VFD 1/099/0e8/091/N91/092/082/1e12/0 2® 
9z 004207 3441 FXT24 FQU * 92 
sz O0N4207 000001 7527 00 O00 3442 STWS leePeSSR INSURE S/S WSR ARF CORRFCT IF CeCe NOW EXTM5240 
@ :: = 004210 3443 SHUT e DSP OO 
ez 0N4211 003713 7012 00 O10 3444 TSX CKEVTXeCKEVT /* CHECK IF ANY INTERRUPT REQUEST / 
zz ON4212 O04 oie Y1LO 44 aie K ; ° SNDING ) | eg 
@ . 004213 3446 OPENe DSP | z2@ 
oz 04214 006 7022 00 O10 447 TOVH3 X OVHX s OVAW UR=TIME (NOP «DL «CROPT &B 0 D00000Z0 - 
gl " 004215 3448 OCLIMB 
@: 0N4215 000000713400 000 VFD 1B/0s09/771 3 eT/1 eT /0917096/0 | 
‘i 094216 000000010000 000 | | VFD 1/099/098/091/N91/092/092/1912/0 , o 
91 449 F 5 ® 
@: 0N4217 600012 0113 56 000 3450 NOP oSSAvIDsPeSSA | 
v1 — OUOOG C—O] XEVT))~©6SET om So Y 
et 094220 001604 7102 10 010 3452 VSLC5V TRA RDI. ST*XEVT /* PAY SOFTWARE INTERRUPT 2 
@: 3453 * . . 2i@ 
uM 3454 * INTERFACE WITH OVERLAY/GATE MANAGER TO EXIT cs 
oL 4! * LN cow bed eo. R me SND RR ~ 5 ; seat : 
@.: 3456 # | Q-REG = STACK ENTRY | 
8 3457 * . 8 
L i 004221 3458 FXTOG EQU * . L 
@: ON4221 600012 O113 56 O00 3459 Nop 235 \ | Y Pere ao 
G S 
7 Te ag 
@: | : 
z , zZ 
Oe , . 


004236 6002 00 
600217 7553 00 


010 
000 


004223 
004294 


ge RO Me ge 


TZE 
STA 


3462 
3463 
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8S 
al ee ei __ «® 
9S 
004222 3460 GTO0G EQU 
0N4272 040000 3162 07 000 34461 CANG STypEaE 7* IS THIS 55A LOADED == @ 


EXTG NOe MUST BE GATE SHUT ENTRY 
eOTM 


99 
SSTMPAs sPe SSA 


/ ARAME 
/*® SAVE AQ IN S/S 


0N4225 600214 2373 00 000 3464 LDAQ | 
04226 BABEL IMB SDaTDSe vEXSSAVEAXO 7® RELEASE SSA MODULE sss 
094226 004602713400 010 VED LE /EXSSAVO9/T1I3B 91/1 91/091 /0 26/Ma 
0942277 000000606023 000 VED. 1/099/0e8/0e1/gNol/e002/002/0012/SDelDS ~~ ae = = 
094230 600214 2273 00 000 34466 LDX PNeeSTMPA oP eSSA Fe 
004231 600214 0 3467 TAO eOTMPAG eRe - 
0N4232 600217 2353 00 O00 3468 LDA eSTMPWeePeSSA «@ 
094233 004126 6052 00 O10 34469 TPL EXTY ° G RE» eae 
094234 400000 6752 03 O00 3470) ERA SEGIDsDU ep 
094235 004052 7102 00 O10 3471 TRA CAI L2 ° + G Lt 1, @ 
| . 004236 3472 EXTG FQU % Wy 
0N4236 100000 3162 0 000 3473 CANO TyPaeb e CHECK POPUP 
094237 004252 6002 00 O10 3474 TZF EXTPP GO POP UP «SSA STACK 
094240 600220 7553 00 000 3475 STA a STMPX 0 oP a SSA PE PASS ARGUMENT (00S 
0N4241 600214 2373 00 000 3476 LDAQ eSTMPAg oP eSSA 

0042420 °~=~— O34 77)~~—~<“—«~*‘;é‘«ST CLM SD TDS a sGTOPOEAXO 7* OPEN MODULE GATE 
094242 005524713400 010 VFD 18/GTOP s09/71391/191/091/096/Me ge 
094243 00000060602 000 VFR 1/O0e9/09B/0 elf eNel/eOe2/Os2/0s12Z/5DeT 
094244 600214 2273 00 000 3478 LOX PNeeSTMPAsePeSSA 
094245 600214 7573 00 000 3479 STAQ oSTMPAs ePe | 
094246 600220 2353 00 000 34aA0 LDA e STMPX 9 Pe SSA /* WHICH MACRO 
ON4G247 004126 6052 00 010 34R1 TPL. EXTYP eEXIT MACRO 
0N4250 400000 6752 03 O00 3482 ERA SEGID»DU eGOTO = RESET INDICATOR 62 
094251 004052 7102 00 O10 3483 TRA CALL2 

3484 * 
TT "3G85 ® RESTORE «SSA STACK SAVED IN DDS STACK 
} 3486 * 3 
000007 3487 PeaPSH SET Pp? 
000007 3488 PeDDS SET P?7 , 2 


| 004252 3490 FXTPP EQU % | z®& 
094252 600031 2363 00 000 3491 LDQ  aSPLVieePeSSA 
094253 006204 4776 07 O00 3492 LDP Pe Beyer ee . 
0N4254 6 6 493 LOD oPHe o9 Spin ee Tp ey ea ee 
094255 OO1761L 4776 07 O00 3494 LDP Pe 2DDS» eCTYP sDL, /* GET DDS STACK SEGMENT 
DOG 56 fy U & GOO 49° ole Dal Via Ql eh ae UL ai0)° me i* mr \/ J e LV 
094257 ec oles 07 O00 3496 ERO SEGIDsDL AND RESET INDICATOR 
on 4260 4&9 TQ e QD e9Pe 
ON4241 700000 fe 06 O00 3498 FPPR PeDDSseQLePeDDS ie POINT TO STACK FRAME 
ON4262 00000 2363 00 000 3499 LDA 99PeDD F POP «SSA ACK TALLY WORD 
04263 600012 7563 00 000 3500 STQ 0 55A9ePe SSA | e 
JOaZHSG 0 636 0 eJeqe 50 "AQ we SOAWK OU TACK BODY ig a 
004265 000002 7362 00 000 3502 aLs 2 « ® 
094266 OO00140 L007 4 00 3503 MLR (Tel)e (le : 
094267 700001 0000 02 O00 3504 ADSC9 LesQUePeDDS ’ 
094270 0000 O02 0 3505 DSc 2 S5AWK 9 9QUe Pe SSF & 
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~EXIT ics® 
9S 
0N4271 006130 4776 07 000 3506 Lop. P.ecRsSDeCReDL /* RECOVER P7 FOR PeCR as 
094272 004126 7102 00 010 3507 TRA EXTYP 7* GO EXIT — —— og 
3508 * es 
| 000000 3509 P.PSH SET PO Se ee ee 
3510 * .<@ 
SBE) CUREGISTER PASS BACK INSTRUCTION CEST 000 SE 
3512 * 6Y 
094273 000000011207 000 —— _o 
| 004274 3513 RETRG FEQU * . 
094274 000050 7403 00 000 3514 TXO oWR ° - 
094275 000000 0112 07 000 3535 Nop sDL oy @ 
094276 000050 4413 00 000 3516 SXL1 SHREGGUNPSSSR ee 
004277 000000 0112 07 O00 3517 Noe 9DL 
—-s«s ON43BQO 000051 7423 00 000 3518 ~~ STX2 SWREGS CL GSPSSSR? ee SSS See ee 
004301 000000 0112 07 O00 3519 NOP DI. . 
ON4302 OOOODL 4 0 000 3570 SXL3 eWREGS +19 0PeD5R : | aaa aa 
0N4303 000000 0112 07 O00 35271 NOP oDL |  ) 
094304 000052 744 00 3522 STX4 eWREGS4+299Pe amare 
094305 000000 0112 07 000 3523 Nop eDL an 
"004306 000052 4453 00 O00 35724 SXL5  e@WREGS +20 ePeSSR KX OO 
094307 000000 0112 07 O00 35275 NOP oDL ee 
094310 000 63 00 000 526 X6 eWR +39 9FeQOK ve 
094311 000000 0112 07 000 35277 NOP eDL «@ 
094312 600214 2353 00 000 3578 CDA @STMPR a ePeSSA 
094313 000054 7553 00 000 3529 STA eWREGS +49 oP eSSR 
094314 600215 2353 00 000 3530 LDA ESINPONAPGSSA ee 
004315 000055 7553 00 O00 3531 STA eWREGS+59ePeSSR a 
0N4316 000 O21 532 Dl a WD 9 are az 
004317 000021 4517 00 000 3533 STPL eWPTR1s9PeSSR 2®@ 
094370 000034 0527 00 000 3534 STD2 eWDR209Pe ee a 
0N43?1 000022 4527 00 O00 3535 STP2 eWPTR29ePeSSR a2 
094322 000036 0537 00 000 3536 ~~ STM3  — e@WDR3B2e9PeSSRO DD 
094323 000023 4537 00 000 3537 STP3 eWPTR399PeSSR ee 
ONG 324 4 538 N4 TWDR4 29 = 
0N4325 000024 4547 00 000 3539 STP4 aWPTR49ePeSSR ® 
094376 000042 0557 00 O00 3540 STS  e@WORS 9 oP oe SSR 
094327 000025 4557 00 000 3541 STP5 eWPTR599PeSSR 
004330 O 4 056 00 3542 STH6 eWDROee 
0N4331 000026 4567 00 O00 3543 STP6 eWPTR699PeS5SR 
ONG 337 OOO46 Q ore olerze 4 oo” eaWDkK fa eke x 
094333 000027 4577 00 O00 3545 STP7 eWPTR799PeSSR 
0046334 546 ’ = 
094335 000000 0112 07 000 3547 Nop. oDL : 
ONes36 000000 Glic U7 C00 c3545 °° NOD OL ne a a ee ee 
094337 000000 0112 07 C00 3549 Nop 9DL | . 
Of « BHO FKXTWK skh eNRPK URKK AREA ely. x Pa 


eo 


29 
rAs) 


19 
eo. ) . x 
6s 1248T 02 12"27"79 09,322 H6600U7.057 GCOS IV. 4VX DISPATCHER 791219DISP PAGE 102 =: 
gs 
2 8S 
e OO ee ees eee e GOTO ~@ 
9S 
9S 
ss 3552 * ss 
@:: 3553 % MACRO PROCEDURE FOR eGOTO Saree 
eS 3554 * . ee 
zs 3555 * THIS PROCEDURE IS A PART OF eGOTO PROCEDUREs Og 
@ : 3556 * eEXTT AND .CALL PROCEDURE IS USED | .@ 
0s 3557 * WHEN THE «SSA STACK ENTRY IS TY + 89 GO oEX T cass 
eo 3558 * RELEASE SSA OR OPEN GATE | in 
@: 8G He ~~C~*~*«SCO CENTER CALLEE» «GOTO MERGES INTO «CALL PROCEDURE +, @ 
me | 004344 3560 GTO EQU * 3 ly 
ov 004344 600214 757300 000 3541  STAQ  eSTMPAsSPsooA:. °C 
vy 094346 000000 2353 00 000 3563. LDA ¢+PeMCRO /® GET MOD# AND EP# tt 
z 094347 600012 2363 54 000 3544\TYGOTO LDO 0 SSAeDI ePaSSA ) | 
@: 3545 % TRA YeGOTO 7* MAKE TRACE IF OPTION “@ 
. 004350 600012 0113 56 000 3566 NOP 0 SSAsIDePeSSA /* PUT BACK STACK 
ov 0N4351 740000 3162 07 O00 3567 CANQ. STMSK*STYPL*STYP2eDL /*® CHECK ENTRY TYPE — oe 
@ « 004352 004354 6012 00 O10 3548 TNZ GTO) /* GO RELEASE OR OPEN 
a 004353 004052 7102 00 010 3549  &«x4TRA £CALL2 ¢S¢® GO MERGE INTO CALL. PROCEDURE UO 
“e 004354 3570 GTOL  EQU % a 
@ : 0043 Er a tee EE) ee ee a na AE ee ee 
GE 004355 004222 7102 00 O10 3572 TRA GTOOG Se 
vSS™*~*~C—s~sT,,, OH HGH GOO PL G POTS OO OOO 3573 GTA RQ oe STMPA 0 oP e SDF ITER HERE FOR «GOTO? TOUUTUZT ras 
@: 0N4357 006130 4776 07 O00 3574 LP P.CRsSDeCReDL 00000020 «@ 
ze 094340 004347 7102 00010 3575 TRATNYGOTO REIN NORMAL GOTO FFF rr 0020 ze 
fe i 
& oO a ® 
62 6Z 
82 8z 
@ lz z® 
92 9z 
GZ S2 - 
& vz ve € 
£2 , €2 
ee zz 
@ re ecrecee al z2@ 
0¢ 02 
6E 61 
@ gh st @ 


“Zt ; 
a an . Zh 


UU ee een 


vl 
vl 


ek 
a® 
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@ 0° a 4 * oo 
é 1248T 02 12°27-79 09.322 H6600J7.057 GCOS IV. 4VX ~~ DISPATCHER 791219NTSP PAGE 103 ei 
as ag 
@. a DATAs REGISTER» INTERFACE SPECIFICATION “«* 
9S 9S 
es 3577 * ss 

@ .. 3578 * THIS DIVISION MANAGES SSA MODULE OVERLAY AND MODULE GATE T be 
eg 3579 * ALL REGISTERS ARE SAVED IN S/S FRAMEe SO THIS DIVISION USES éé 
zs 3580 * EVFRY REGISTERS. 

@ . 3581 * 5/5 IS USEN HEREs 
os 3582 * ONF FRAME 1S FOR REGISTER SAVE AND ONE MORE FRAME IS be 
6P 3583 * FOR INTERRUPTION 6Y 

@: 3584 * | NO MORE FRAME MUST BE USED . ev 
. 3585 % THERE MAY BE S/S OVERFLOW ON EVERY S/S FRAME BUILDING ie 
ov 3586 * IR sQer Oa 

@:; 3587 * AT SECOND S/S w== PAY ATTENSIONe IF INHIR OFF 
vy 3588 * THF PROCESS MAY BE ABORTED AT S75 OVERFI OW bY 
ev 3589 « SOs IT MUST BE IN ABORTABLE STATE e 
zy 3590 * . 2 @ 
i 3591 * CALLING IS THROUGH SDeTDS ENTRY DESCRIPTOR» ENTRY 
E555 ae abet les ah — a 

@ « 3593 * CLSSA © ASSIGN SSA MODULE TO SSM PAGE INDEXED By KPX  ) 
ae 3594 * EXSSA = RELEASE SSA MODULE FROM SSM PAGE 
Le 3595 * GTSTH = SHUT MODULE GATE OF HCM MODULE A 

@.« 3596 * GTOPH = OPEN MODULE GATE OF HCM MODULE : ODD 
GE 3597 * GE 
ve ae TG Oe ae ee ee ee ee ee ee ee eee 

@ : 3599 * POTNTER REGISTER ASSIGNED GLOBAL WHILF CALLER'S REGISTERS ARE , 

Ze 3600 * SAVED gg 
le 3601 * THIS ASSIGNMENT IS SAME AS DISPATCHER TO USE BASIC RTN ie 
@. | 3602 * —"» 
62 000003 3603 P.PRQ SFT P3 62 
82 000004 3604 P.PST SFT PG az 
@ 000002 3605 PeKL SFT P2 z® 
3 ee WOO ROE-~"“Bs08-PaGIM “Oey. Pe> = ee 
Sz 000005 3607 P.eSRM SET P5 4 
@ 0000 3608 XPAGE SET 2 7 g K +e —————,@ 
ez 000004 3609 XMOD = SET 4 /* MODULE NUMBER - 
ee 61 : 22 

@ 3611 * 
oz 3 3612 * INDEX REGISTER ASSIGNED FOR SUB ROUTINE | INKAGE a io 
1 3413 * , 6h 

@: a 000001 3614 DMIOX SET I = s@ 

. il o0o0001 3615 2 SFT 1 SGARIC ROUTINE IN DISPATCHER . 

\ — TE BUSHY = EPUSH-DOWN—TNTT | Pee 

@: 000001 3617 LOADX SET l *LOAD FROM SYSTEM FILE 
aa 618 CPYSA rT : | Ss erro 
et 000001 3619 GETPGX SET 1 *GET eae SEGMENT 

@: 0000 3620 CKSMX SFT 3 K ¥ 
1 000001 3621 LDSHX SFT l LOAD 7 MONULE . 

ol QUOQVO0 O72 Ri ri x - XK MODU e a 

@ : 000003 3623 LINKX SFT 3 *LINK. PAGE. INTO »SSPRO 
8 DUU00 624 SETLD 7 PROCESS STATUS + COADING D : 

L on0001 3625 SWAITX SET l 7* SPECIAL WAIT ROUTINE an 
iid 3426 7 = UNSAVED —, @ 


@ » Ba ' 
6s 1248T 02 1227879 09.322 H6600J72057 GCOS IV 4VX DISPATCHER T91L219DTS5P PAGE 104 se 
8s 0 eee rr 
@ :: NDATAs REGISTERs INTERFACE SPECIFICATION 
9S en ER SE 9S 
cg 3677 Xl = SAVED RETURN Sg 
@ :: ERGO BO en gn a ee ee ee ee <@ 
es 3479 * SSA MODULE MANAGEMENT DATA CELL IN SSA SEGMENT se 
2g 36430 * 2g 
@ .: 3631 * eSLOAD UPPER » CURRENT PAGE QUEUE LENGTH OF .SSPRQ @ 
os LEP LE—EREE e  ey AODAT CIN ROUTING. 4-0  e 
6Y 3633 * LOWER » NO« OF SHUT GATES ( MODULE GATE ) = 
@ "3634 #  «@SLOAD] UPPER » RETRY COUNTER FOR IvO. OOOO a @ 
lv 36435 % LOWER » MODULE # TO CALL AND THEN TO LOAD . 7 
ov 3636 * ~SLOAD2 IN CLSSA * MOD WORD TO CALE ss ————Cs—C—t 
@: 3637 IN EXSSA = eSNTRY WORD OF THE EXITED MODULE _@ 
vy 3638 % eSLOAD3 .SNTRY WORD CURRENTRY MAPPED ONTO SSM SEGM a ee ee 
- 3639 \% SET IN CPYSSAs RESET AT START OF EXSSA : 
@ at 3640 % Re ep ee ee ee ee i pia 
i | 3641 % eSRMWK UPPER » TRANSIENT PAGE POINTER ( #eSCTRL ) ie 
ov 3642 * [tr ~ 9 G e Ov 
@« 3643 % OR IN e#SRMWK LOWER | «® 
us 3645 * IF NON#eZEROQs THE PAGE IS IN USE AND 
@x« 3646 *# OCCU IN e SCTRLGL OOOO SO 
SE 34647 * se 
ve 3448 * eSRMWKI UPPER » XPAG VE RRUPTION vE 
@« 3649 * LOWER =» RETURN ADDRESS FROM DMIO ROUTINE «@ 
ze 3650 * SRMWK2~"3 VEC WORDS TO SHRINK SSA ISR OR 1/0 AREA SS ee ee ee 
le 3651 * le 
@«: 3652 % eSTMPW MACRO PARAMETER SAVE FO A CALI /EXIT es | 
6z 3653 * 6z 
B85 KS STKSP SSA MODULE WORK AREA 
@ 3655 * z2®@ 
92 3656 * gg 
sz 3657 * SSA MODULE PAGE STRUCTURE (FSSAsHSSA) - 
@ 365B * 
ez 3659 * eSDCW 40 = #4 DCW LIST Lie bo 1/0 ON THE PAGE s 
ze 3660 * 2S5AST UPPER = | R CODE 
@ 2661 * eSCTRL UPPER = POINTER EnATN FROM eKLSRM/*¢SSPRO 
0z 3662 * LOWER =» M 0z 
zi 3663 * eSCTRL1 UPPER » BACKWARD POINTER : 
@.« 3664 % LOWER = KPX | a®@ 
‘i 3665 * o SEEK IN LOADING = MODULE DIRECTORY wORD - 
91 3666 * i PUSRH/POR = K AUDER 0) PRIVIOU Y PUSHED MODU - 
@: 3667 * eSENTR e«SNTRY SAVE IN CONTROL AREA 
a 36468 * 2SMDD MODULE DIRECTORY SAVE WORD 
et 3669 # eSLOCK SSA LOAD CLOCK (MP ONLY) 00000020 2 
@: —- 3670 * «SCKSM CHFCK SUM W af 
uN 3671 * eSCKSML CHFCKSUM EXTENSION FOR PUSH/POP | 4 
ol 472 % e ORF A MODU Rk BA ADDR ie 
@ : 3673 * eSHLF HALF SSA MODULE LIMIT OFFSET FROM PAGE ROUND « & 
; ——~ 3674 * eSEND PAGE E Se ee 
Z B75 * L 
@: I eo e e 


| 0 ® 
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ee DATAs REGISTER: INTERFACE SPECIFICATION ee 
9S 
3677 % SSA MODULE PAGE STRUCTURE (SSSA) ie 
2678 * , vs 
3679 * eSDCW +0 = +4 DCW LIST £5 
34620 x 2 O5A5T BIT O & 0 NOT IN SSA LOADING = 
| 3681 * = 1 IN SSA LOADING = WAIT AT DeSIO ECB .~@ 
3682 %* BIT lel7 ERROR CODE OF DMIO os 
3683 * LOWER = NON@ZERO, SOME ONE WAITING THE LOADING am 
3684 * eSCTRL POTNTER AND MODULE NO es gy 
3685 * eSCTRL1 UPPER » BACKWARD POINTER oi 
acer 36R6 * OWER = COUNT OF PRO ORRENTLY N 
3HR7 % 
000000 34688 .~SDCW EQU 0 vy 
000005 3689 .SSAST EQU 5 €y 
000006 3690 .eSCTRL EQU 6 a» @ 
000010 3691 .«SFEK EQU 8 is 
— COOOL S~~OUSAD2 6 SCKSM FQU 14 eg te en rae Se a Nee ee 
000011 3693 .SENTR FOU 9 | «@ 
_ 000012 3694 eSMDN EQU 10 - 
000014 3695 .SLDCK EQU 12 00000020 is 
6002096 @SBASE FQU LG 
001020 34697 eSHLF EQU e SRBASE#512 : ce 
002000 3698 2 OENN EQU 1024 re 


ate er cette teeth tne ttt A nents pentane NN nn 


1248T 


: i. oo 
02 j2"27=79 09,322 H6600J7.057 GCnS 1V 4VX  DyYSPATCHER 791219D1SP PAGE 106 i 
FNTRY POINT PROCEDURE ~®@ 
9S 
3700 * | i 
3701 * THIS ENTRY POINT IS CALLED VIA SDelbDS FOR MODULE... : eT 
3702 * OVERLAY AND/OR GATING PROCESSING | - 
3703 * 
es 004361 3704 TDS FQU * | 
004341 006130 4776 07 000 3705 LDP PeCRsSDeCR*DL /* PREPARE COMMON REGISTERSS 
094342 006145 4766 07 000 3706 LDP P.eSSAsSDeSSASDL | 
004363 006047 4756 07 000 3707 LDP PeSRMeSDeSRMeDL = ow @ 
004364 006133 4726 07 000 3708 LDP PekKLeSDeKL oDL 
094365 000000 7102 10 000 3709 TRA 2X0 QUE [ 
. 3710 * 
3711 % AT RETURN PUT X7 IN 5/5 fe 
3712 \% 
000000 3713 PeSSR SET Po = 
004366 3714 TOSE FOU 
004366 SOODIG e700. 00 a70 SIX PNG STUER ESSN 
004367 3716 OCLIMB /* GO BACK TO MACRO DIVISION ee 
0N43467 000000713400 000 VFN 18/0909/713e1/101/091/096/0 8s 
094370 000000010000 000 VED 1/099/098/091L/N01/092/092/1812/0 #e 
—— @ 
ot 
ve 
€e @ 
vm 
be 
o€ @ 


62 


82 
z® 
92 
; 2 
z® 
€¢ 
ce 
re] 


o¢ 


61 
| — a@ 


1 SSS aa 
(War) 09 =e, . 
S- 1248T 02 12"27-79 09.322 H660057.057 GCOS IV 4VX DISPATCHER 791219N1Sp PAGE 107 
8S 
@ .. CALL A SSA MODULE 
9S 
66 3718 * ee ees, 
@ .: 3719 * THTS SECTION CALLS A SSA MODULE READY IN SSM SEGMENT 
és 37270 % eCALL AND .GOTO MACRO ENTER THIS SECTION IF THE CALLEE 
2S” _ 3721 * 1S SSA MODULE 
@ . 3722 % IF SSA MODULE 1S IN SSM PUSH IT DOWN 
og 3773 x LOAN THE MODULE eS hd 
eee eee 3724 * IF 1T IS GATED » SHUT GTM | 
OO: oo "00000200—~—CO8 725 XPAGEF SET 2 © PAGE ADDRESS © @SCTRE 
ee 000000 3726 XTMP SET 9) | Ly 
ov . 004 ST2-65€ A €EQU % 
@; 094371 006275 7032 00 O10 3728 TSX SETLDXeSETLD /* MARK SSA LOADING STATUS 
1 3729 ENT INTERRUPTI 
ep 3730 /* ALSO CHECK LINKS 170 
< 2 094372 006140 7102 00 O10 3731 TRA SSAVI I HEN AS Si | 
Ip | 3732 * LDA 0 SSAg oP eSSA CHECK THRESHOLD OF «SSA STACK . 
or 0N4373 000360 1152 03 000 3733 CMPA 256/278 + @ 9 
@ « 004374 004553 6032 00 O10 3734 TRC SVSTK /*® SAVE oSSA STACK 
ge 004375 3735 CLSS1 EQU % Be 
ie 3736 INHTB SAVE e OFF J* 1 #/ 
@ : 094375 600216 2351 00 000 3737 © LDA a STKSPeePe SSA FR SAVE @STKSP WORD 
ce 094376 600012 7551 56 000 3738 STA eSSAsIDePeSSA a 
ve 0N4377 600 2241 QQ 000 739 a} XMOD se MPWe oP R TAD MODU TOs ; 
@«: O0N4400 600105 2361 00 000 3740 Loa SLOAD#39 sPeSSA_ *eSNTRY OF CURRENT MODULE IN SSM SEGME 3 
ze 004401 600103 4441 00 000 3741 SXL XMOD se SLOAD*1 9 sPeSSA ze 
ies 0N4402 001777 3760 03 000 3742 VTPSHV ANQ MDMSK #DU 
@. 0N4403 000022 7720 00 000 3743 ari. 18 /* PUT SSA LOADING ENTRY = | 
62 094404 040000 2760 07 O00 3744 ORQ STYP4eDL IN eSSA STACK s 
82 0N440 600 6 6 V00 3745 oT r We liar ; 92 
@ 0N4406 600224 7221 00 000 3746 L XL. XPAGE 9 oSRMWKs sPeSSA *CHECK IF SSSA IS INUSE n® 
oe ON G07 44 | 74 ) ° a 
sz 3748 © INHTB SAVE »ON /* 2 *f/ és 
@ a 004410 3749 SHUT e DSP % : | 
ez 094411 005577 7012 00 010 3750 TSX RLSHX»RLSH *GO RELEASE SSSA ie 
zz 0044 751 OPEN e P 2Z 
®.: 3752 INHIB RESTORE /* 2 */ 2@ 
oe 3753 RR KH RUHR RHR ER RR RR RE EER OOOO i 
61 3754 % CHECK PRIVATE SSA IN CORE QUEUE LENGTH « TF. TOO LONG PUSH ne 
@: 3755 * DOWN A PAGE INTO DISK FU 
LL 004413 3756 CLDO EQU * Li 
ai ae T4413 6B00L0 5, 00 0060 757 VILDV DQ enol QAD+Za9Pe : : AK AB j 7 
@: 094414 000017 3760 03 000 3758 ANQ =0179DU *GO LOAD SSSA MODULE 
oe - 0N4415 000006 1160 03 000 3759 CMPQ~=6sDU iia No ee ee 
gy 094416 004551 6000 00 O10 3760 TZE CLSHLD: *#YES 
@: 094417 600102 2201 00 000 3741 | LOX XTMP ee 5LOADs oP e SSA *CURRENT USING SSA R oy. 
ts 094420 000000 1000 03 000 3762 XeSRML CMPX XTMP 9%*9DU #MAX IMUM NOs OF SSA MODULE IN CORE 
OL : . y & el- 4 ET) Se x ; aR : 
@: ON4421 004425 enzo 00 O10 3744 TNC CLD! *NOT YES 
8 0N4422 00 10 so 010 37645 S PUSHX » PUSH kGO PUSH WN A PA 0 COAD MODU 
L 0N4423 004425 nies 010 3766 TRA CLOL *ALL WE HAVE ARE SSSA 
@: 094474 SOataO FLOO- OO OLS ae TRA CLOAD-——“i‘“‘“‘C™SCSRGOT A PAGE TO LOAD THE MODUL ED 
Ss 
Y ee a eS ee 
@ : 


i ee hi ead tye ee ne ee ee ee ee 
6s 1748T 02 12827879 09,322 H6600J57.057 GCOS IV 4VX DISPATCHER 791219DISp PAGE 108 e 
a 8g 
@. se a FG INO i ng Ge 
8 9g 
ee 68 *X KKK KKH HHH HHH EHH HR KK HHH 2 
@ .: aves % GET A PAGE TO LOAD A MOD ; | 3 aa 
£6 3770 * QUEUEs WHEN THE MODULE IS SSSA. ee 
2s 004425 3771 CLD EQU % | zs 
@ 3772 INHTB  SAVEsON s* 2 %/ ~@ 
- = 004425 3773 SHUTe DSP | 8s 
ap 004426 006013 7012 00 010 3774 TSX GETPGX »sGETPG] *GET PAGE IN COUNT 
@» 004427 004440 7102 00 010 3775 #4TRA #&CLOAD  ¥GOTTEN A PAGE IN SRM... ©0n™@©@3©° 002000) oy 
wy 3776 | *DSP IS OPEN | m 
ov 094430 200055 2223 00 000 3777 +4LDX KXPAGEFeeKLORM+loePekL RSERACH FOR AVAIL 
@: 094431 004437 6002 00 010 3778 TZF CLD3 *NO AVAIL QUEUE SO GO TO EMPTY QUEUE ov @ 
me 04432 600103 2353 00 000 3779 LDA eSLOAD+ Le ePeSSA 
ep 004433 777777 2362 03 000 3780; LDQ 716DU *MASK ev 
@: 004434 000300 5002 00 O00 3781  } RPL OeTZE 0 a 
Ww 094435 500000 2113 12 000 3782 CMK sXPAGEF sPeSRM *SEARCH IN AVATL QUEUE FOR SAME “a 
ov 004436 004516 6002 00 O10 3783  ®£&xT?7F °»;}CLDED  ®&X§ FOUND THE MODULE 
@ «: | 004437 3784 CLD3 EQU # « @ 
ge 094437 006173 7012 00 010 3785 £&4x1'5SX  GETPGXsGETPG2 GET A PAGE IN SRM SFGMENT > ¢¢ 
Le | 3786 *SEARCH EMPTYe OR AVAIL QUEUE i 
@ « = 004440 3787 CLOAND EQU % «@ 
ae 094440 600217 2203 00 000 3788 LOX XTMPseSTMPWs #PeSSA | é& 
ve ONG441 00000 4403 I2 00 3789 SXL TMP 99 Pe .. 
@: 004442 006253 7032 00 ©6010 3790 TSX LINKXeLINK *LINK THE PAGE INTO .«SSPRQ 
ze i 3791 INHIB RESTORE * } | Pee eee 
be 094443 600104 2361 00 000 3792 LOO oe SLOAD4+299PeSSA /* MDD WORD 
@.: 0N4444 005012 7010 00 O10 3793 — TSX LOADXsLOAD *GO LOAD THE MODULE 
ez 004445 3794 CLD?  FEQU * ez 
e eS ES A ae 
@ 3796 * IF THE MODULE 1S HALF MODULE HE WANT TO SEE LOWER HALF OF 
“92 3797 % PUSHED MODULEe SOe M 51 ORDSe ee Tae: ae 
zZ 094445 500011 2351 12 000 3798 LDA eSENTR oe XPAGE 2 Pe SRM 
@ 004446 000020 3150 07 000 3799 CANA =O20eDL *«¢S IT HALF MODULE ” ®©@°@©®"'@9WW™6W™—S<CSé<‘<CS;C;S!”STSTSSTSS 
ez 094447 004461 6010 00 010 3800 TNZ CLD8 *NOT HSSA ee 
Zz 004450 600154 2341 00 O00 3801 SZN «SPUSHeePeSSA SIT 
@ 004451 004461 6010 00 O10 3802 TNZ CLD8 | 00000020 
oz 094452 500006 2201 12 000 3893 #4LDX XTMPeeSCTRLeXPAGE oPe SRM NEXT PAGE 
6s 094453 004461 6000 00 O10 3804 T2F CLN8 *NO PAGE PUSHFD TO MOVE © : 1 
@: 004454 501020 6315 12 000 3805 EPPR  PleeSHLFeXPAGE ePeSRM GD 
An 094455 501012 63905 10 O00 38N06 EPPR POs eSHLFeeSCTRL eXTMP oP eSRM is 
gt 094456 80 R ds 
@: eoeent 000000 0037 00 000 3a8n8 ADSC9 9 oe SEND*4= e SHLF #4 —P0 .® 
vi 04460 100000 0037 00 000 3809 ADSCI 0a SENDHG 6 SHUF HG PL “4 
El BB10 RK KKK KH HHH HEH HK KE KKH KH RH HOH 
@: SS ease MODULE IS CODED IN REAG MEMORY fO0p eS 
ou 3812 s SO HERE PUT IT IN SSM PAGE OF THIS PROCESS - 
ol 381 f) a ne 
@ : 004461 3B14 ean EQU * ; © 
8 094461 005766 7030 00 O10 3a15 CPYSAKeC wf 8 
L 0N4462 500011 2351 12 000 3816 LDA eo SENTReXPAGE oP e SRM vfs RESET vou EXECUTION LEVEL ; 
@> 094443 000041 7710 00 O00 3817 ARL. 33 » @ 
$s g 
4 y 7 
@: € a] 
vA 
: 


1248T 


02 12827=79 09.322 H6600N7.057 Gcos IV 4VX DISPATCHER 791219DTSP PAGE 199 
Ch A A SSA MODULE 
0N4G466 600043 1151 00 000 3818 CMPA eo SELVL 9 9PeSSA 
04465 004467 6020 00 010 3819 TNC CLD929 
0N4466 600043 7551 00 000 3870 STA eSELVL 9 9PeSSA 
TT O0GHGT BBPL CLD90O CQU 
287272 * ee KK KHER HE KH HHH HHH HHH 
3823 * IF GATED SSAe SHUT GATE OB ee at ee 
0N4447 020000 2350 03 000 3874 LDA SNaGATeDU 
094470 SOOOlL 3151 12 000 3875 = CANA  «SENTReXPAGEsPeSRM /*® TS THIS GATED MODULE 
0N4471 004474 6000 00 010 3876 TZE CLO9el *NOe GO ENTER e 
0N4472 600 2351 00 O00 B2 LDA 2 OTMPWe ePe DOP MODT NO e op 
004474 3829 CLND9 EQU x | ae 
004474 3830 CLD9.1 FQU 
3831 INHTB SAVESON /® 2 %/ ee ee 
094474 O00000 6202 00 000 3832 FAXO 0 a 
Onea7s 00105-2355 00. 000 sean” LA LOAD Ours Oen oO ee 
0N4476 000020 3152 07 O00 3834 CANA 20209DL /* IF HSSAe SET SHRINK SIZE «@ 
094477 000002 6012 04 000 3835 #.'N2 &§.obetC ©. 0 eSHALF WORDG 0 96 
0ON4500 000002 6202 00 O00 3836 FAXO 2 me HSSA se 
094501 600104 3753 00 O00 3837 ANA eSLOAD+2eePeSSR 0 6 
094502 004000 3752 03 000 3838 ANA SNePRVeDU *GET PRIVITY a FROM MDD i 
094503 00024 ole erey 839 N: bel OR R : aaa 
994504 000000 6362 16 000 3840 EAQ 9K PX MUST BOnEe. SHRINK VECTOR FOR EXCLUSIVE 00000020 a ) 
0ON4505 000400 1162 03 O00 3841 CMPQ 2563DU PRO 5 --- x O0000020 ” 
094506 004511 6022 00 010 3842 TNC CLN9A UNDER 256s THEN PAGE 1S IN SSM 00000020 - 
094507 000400 62 0 000 384 BLO 69Du SEGMENT += E + PAG O00000Z1 oo @ 
094510 000004 6202 10 000 3844 EAXO 490 SSX SEGMENT 00000020 . i 
ON4511 OQO00 62 00 OOO 845 CLBOA Q } ) VUUUUU EU gg 
0N4512 004540 2772 10 O10 3846 ORAQ SSMVSK 00 CREATE SHRINK IN AQ 00000020 | 2@ 
004513 600226 7573 00 000 3847 STAQ  .SRMWK#20ePeSSA /* SET SHRINK VECTOR 8% 
094514 006320 7032 00 010 3848 TSX SETLDXsRETLD /* RESET SSALODING STATUS © Se 
074515 004366 7102 00 010 3849 RA TDSE A RETURN or @ 
3850 INHTB RESTORE | /*® 2 */ a 
OSE LG US RBL CLDED LOU ag 
3852 MOMNULE IS ALREADY LOADED AND FOUND IT 2~@ 
—- 3853 LI gg 
000001 | 3854 XFRTR SFT : *FRONT le + .SCTRL + 1 
000000 3855 XNXTF SFT RNEXT PAGE SCI a ee he ar ne Sn 
3856 INHIB SAVE ¥9N /* 2 ne _ 
¢ 16 O00t 0 0 000 85 eCLD SC=MPBADE 9D YP = MPCA ©1910 101 0) Oy 40 eee 
0N4517 500001 2213 12 O00 3858 ye KER TB# Le KPAGE oPs SRM #XERTB = FRONT PAGE IN QUEUE ;@ 
ONG 20 VOOR Q OOO RES LOX XNXTF eo XPA 2P.SRM FN rT T QUEU ree ee 
0N4521 004524 6002 00 O10 3860 TZ2F CLOD1  #*THIS IS THE LAST PAGE IN QUEUE et 
04592 O00! } 0 000 3aaAl X XFRTBeLeXNXTFePeoRM *BACK PTR IN NEXT PA | | 
0N4523 004525 7102 00 010 3862 TRA CLOD2 rT 
TS UU OOS ee SHaS CLODL FOU Rg eR EE Se Gg 
0N4524 200055 4413 00 O00 3864 © SXL XFRTBeeKLSRMtleosPeKL *SET FRONT PAGE IS NEW LAST 
2 ~ 3845 CLDOD2 EQU x | 
094525 000000 6212 11 000 3846 FAX XFRTB2eXFRTB *IS THERE FRONT PAGE 
04526 004531 6002 00 010 3867 TZF CLAD3 ¥NO re a age ye 


ee a me ee ee ge ee ue ey 8 ee ee ee o® 
12948T 02 12°27"79 09,322 H660057.057 GCOS IV 4VX DISPATCHER 791219D1Sp PAGE 110 i 
CALL A SSA MODULE s®@ 
. 9¢ 
004527 577777 7403 11 O00 3848 STX XNXTF eel sXFRTBePeSRM *YES SET NEXT PAGE PTR ee 
094530 004532 7102 00 O10 3869 — TRA CLOD4 ——s * 
004531 200055 7403 00 000 3870 CLDD3 STX XNXTFeeKLSRM+l so sPekKlL *SET NEXT PAGE IS QUEUE HEAD a 
— 04532. S871 CLDD4 FQU *% FE me ee Re eee 
004532 3872 OPENe DSP @ 
3873 INHIB RESTORE 02) A 68 
004533 006356 7170 00 O10 3874 XED CAPTOR 00000020 a 
094534 000003000000 000 3875 CAPTO3 VFN 18/3918/0 00000020 sb 
094535 006253 7030 00 010 3876 TSX LINKXeL INK are THE _PAGE INTO ~5SPRQ | _ 
04536 0044 7100 00 O10 3R77 RA Ln AEAD ADDR 
04537 000000011007 000 ov @ 
004540 O0175777264 000 3878 SSMVSKFVEC 5D a 59M0 0 SDASE 8 0 SEND 0 SBASE® (ReWeke y00000Z0 eos Se 
004541 000020006050 000 \ : “ 
004542 000777772640 000 3879 VEC “SD e 55M 0 0 SBASE 00 SHLF—e SBASE® (ReWeE eS) 00000020 a» @ 
094543 000020006050 000 | 3 
0046544 001757772640 000 38R0 VEC De Ke OBA 9e VD~e DHA a (ReaWek ¢ VUUUU0N EU ) 
094545 000020006076 000. | | «® 
0N4546 000777772640 000 3881 VEC 5D. SSX 9eSBASEs SH Fe«SBASE® (RoWeF oS) 00000020 ee 
004547 000020006076 000 
6094550 000000 000000 O00 3882 SCRET ZERO 090 *POINTER TO A PAGE FoR GEPOP ,® 
004551 3883 CLSHLD EQU % ee 
094551 005652 7010 00 O10 3884 TSX LDOSAXeLDSA MOO LOAD SSSA ng 
004552 004461 7100 00 010 3885 TRA CLD8 «®@ 
3886 INHIB. RESTORE FRR eg 
3887 * | vee os 
3888 * SAVE STACK INTO DDS STACK 00 eee Oe 
000000 3889 PeNDS SET PO PTCH5270 e 
3890 * 4 
2 004553 3891 SVSTK  EQU x 3 | z® 
094553 600031 7213 00 O00 3892 CXL XPTRoeSDLVLe0P,SSA 7? NEXT AVA POINTER OF DD aaeer 
094554 006204 4706 07 O00 3893 LOP PePSHsSDePSHeDL 
094555 000026 6707 00 O00 3894 LDN “Ba DDS #PH DDS 9 9 PSH -® 
0N4556 001761 4706 07 O00 3895 LDP P. bps recT yEnvt /* GET DDS SEGMENT - 
094357 OOO000 630 O00 896 ERRR PeDDSseaARPI Re re DD AND POIN 0 ye 
094560 000000 7553 00 000 3897 STA 99PeDDS /®* SAVE «SSA TALLY WORD  ) 
004561 777440 6352 01 000 3898 £;EAA =eSSAWKeAU §&§©6f CK B 7 oma es 
094542 000002 7352 00 000 3899 ALS 2 és 
094543 000 1 00 900 MLR (Tel)o(le K ST a ee ae 
094564 600340 0000 01 000 3901 ADSC9 ~—s-__ a SSAWK 9 #9AU 9 Pe SSA Hi 
O0N456 1 902 : a9 are Oh 
0N4566 000002 7712 00 000 39n3 ARL 2 | os @ 
004547 600C 6 904 Dd eSDLVLe9P. ——T® ALSO SAVE BACK POINTER 
0974570 400000 2762 07 O00 3905 ORO SEGID»sDL AND SET INDICATOR TO SHOW THIS FRAME 
004571 000002 6352 01 000 396 EAA 2eAU)©—6SS- SSA STACK FRAME 
ON4572 O77777 7563 01 O00 3907 STO DeDLVLeAUePeDDS | | a 
HA457 ojeye 00 000 3908 AR : *—UPDA HDS NEXT AVA POINTER 6 
094574 600031 0553 00 000 3909 ASA eSDLVL 9 sPeSSA .@ 
0N4575 000 1 6 6 eJeTe) 510 FARA eDSAWK* > ° . ACK TA Y eS 
ON4576 200000 2362 07 C00 3911 LDQ STYP169DL 
004577 600012 155300 000. 4910 Sth. G6AesP. GON a ee ee 


oe A MO FTF NH YO KR 


1248T 02 12627=79 092322 H6600U7.057 GCOS IV 4VX DISPATCHER 791219DISP PAGE 111 
CALL A SSA MODULE 
0N4600 600340 7563 00 000 3913 STa o SSAWK 9 oP e SSA /* SET TYPE 16 ENTRY FOR POP UP 
0N4601 004375 7102 00 010 3914 TRA CLS5Sl1..—~—~—~<Cst‘Cs‘CSsST 


Oe NWN MO FT MN oO Nn 


eX?tT A SSA MODULE s® 
“A 9S 
3916 % is 
89077 &~)©)—)™”~CUTTS «SECTION RELEASE SSA MODULE EXITED FROM AND POP UPSSA 00 00000000 66 
3918 * MODULE IF ANY PUSHEDe eEXIT AND eGOTO MACRO ENTER THIS SECTION Se 
3919 * IF T EXIT MOD 
3970 * NO PUSH=DOWN OCCURS IN HCM CALL SO EXIT FROM HcM 
3971 * NEFD NO PO OF SSA MODULE | aa 
3972 %* HSSA REQUIRES POP UP IN eGOTO RECAUSE PAGES ARE POOLED 
004602 3923 FXSSA EU * 
0N4602 006275 7032 00 O10 3974 TSX SETLDXeSETLD /* MARK SSA LOADING STATUS “é 
3925 TO PREVENT INTERRUPTION 
3976 /* AND CHECK ILINKS I7/0 
| 85997. ~)~)—)COUMINATB))©6OSAVE OPFOR 
0N4603 600105 0341 00 O00 3978) LDAC 051 OAD4399PeS5A *PULL OUT CURRENT «SNTRY 2 
094604 600104 7551 00 000 3929 STA eSLOAD4299PeSSA *SAVE EXITED .SNTRY zy 
(0N4605 000002 6010 04 000 3931 TNZ 297C *MUST BE e«SNTRY WORD “ 
004606 3932 ZOPS 
eee: 29033 KKH KKK HK K KH KH HH HEH HH 
<< «QR R)™)”)WuWUUNL INK hUTHE EXITED PAGE FROM eSSPRQ AND SAVE THE PAGE TN 88 
3935 * a SRMWK IT WILL BE RELEASED OR REUSED | ATER 
| 004607 3936 FPP] FQU * 
0N4607 006010 4704 07 COO 3937 LDPO Sp.ePT1leDL MUST CLEAR PTW FOR EXCLUSIVE PAGE 00000020 ee 
004610 200062 6201 20 000 3938 EAXO eKLSRP +L e®ePek OR SSA MODULE FOR THYS PRO TOUUUUZU 
04611 000000 4501 10 O00 3939 5T2 0+X0eP0 00000020 | 
004612 600224 7221 00 000 3940 LX XPAGE +e 9SRMWKoePeSSA *IF SSSA IN USE . ze 
004613 005004 6010 00 010 3941 TNZ EPRLS 
3942 INHIB SAVE sON /® 2 %/ 
004614 600172 2223 00 C00 3943 LDX sa ae a SSA *GET SRRE ERGE ADDRESS 62 
~ -ON4615 600224 7423 00 000 944 STX PAGE # ea RMWK ¢ oF A SA \TRANS ADDR | 82 
onesie O0uele 6002 00 010 doug tee 
004617 600194 23543 00 O00 3947 SZN oSPUSHe Pe \ ga 
094620 004630 6012 00 010 3948 TNZ EPP5 00000020 Gz 
094621 500000 2213 12.000 3949 #£LDX  XleeXPAGEsP.SRM %*GET NEXT PAGF TO BE POPED 000 00000000 
ON4622 600172 7413 00 O00 3950 STX X1eeSSPROQ90eP eSSA *UNLIMK THE EXIT PAGE FROM QUEUE ds 
004673 4626 6 951 bi 
004674 600172 4503 00 O00 3952 STZ eSSPRO22PeSSA 
0946275 004630 7102 00 O10 3953 2 TRA PB Ss 
094676 000000 6202 00 000 3954 FPP4 FAX X020 
0N467 5 ale oh 
004630 3956 FPPS5 FQU * | a 
ON4H30. OOUUUL S362 03S U00 SOT DCC OT Bh 
094631 600102 0563 00 000 3958 ASQ eSLOADs oP eSSA *COUNT DOWN USING PAGE OF THE PROCESS a@ 
ss ——C*“RQQS”™”~”C”:CNNXB©DO RESTORE) DO ea 
3960 * DATA WHICH MUST BE RECOVERED 
3941 %. EXT TED PAGE ADDRESS IN »SRMWK 7 = a aa ast 
3942 * eSNTRY OLD IN sSLOAD#2 
3943 * | DOP UP PA KDDR Ne 55PRQ UPPER 
3964 * ABOVE ARE ENOUGH TO CONTINUE 
“3065 HR RNR RR RR RRR RR RRR RR 
3966 * CHECK THE MODULE IF IT IS A GATED OPEN MODULE GATE 
39467 * AND ENABLE WHO WAITING THE GATE 
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1248T 02 12=27=79 09,322 H6600J7.057 GCOS IV. 4VX DISPATCHER 791219DISp PAGE 113 aa 
PR ok al ik DE dc RAS PAIN RS 29 Jets) O° rr ee 


FXIT A SSA MODULE is 


004632 020000 3150 03 O00 3948 CANA SN.GAT sDU *I1S IT GATED MOSULE 3 
094633 005527 6010 00 010 3949 £44-TNz #£GTOPS YES OpEN GATE AND ENABLE IF ANY WAIT. 


3 
9] 


004634 3970 FPP14 EQU % 63 
3971 * kK RK KK HHH HR HR OH OR HR HK ORK OR X ~ ame 
3972 * CHECK IF THERE WAS A PUSHE DOWN MODULE WHEN THIS EXITED - 
3973 * SSA MODULE WAS CA LEDe 0s 
000001 3974 XPTR SET 1 _w® 
094634 600012 2361 54 000 3975 LOO 2 SSAeD] oP a SSA /*® GET 2yck FNTRY ey 
094635 001777 3760 07 O00 3976 ANQ MDMSK eDL tila CH J 
094636 004664 6000 00 O10 3977 T7F EPP50 / 
0N4637 000000 6240 06 O00 3978 FAX XMODs 9QL Sv 
094640 600103 4441 00 000 3979 . §xK XMODseSLOAD4+l a aPeSSA ey 
rans 000000 3980 PaMDN SET PO ev 
0N4641 006134 4704 07 O00 3981 LDP PeMDDeSDeMDDeDL zy 
0N4642 000000 2351 14 000 39a2 LDA eXMODePeMDD *IF THE PUSHED MODULE IS a 
094643 000017 3750 03 O00 3983 ANA =01790U RSSSA ou ee 4 te 
094644 000006 1150 03 O00 3984 CMPA 6eDU ; ae 
094645 005001 6900 00 010 3985 TZF EPSH * IT FROM - 
094646 600154 2341 00 O00 39R6 SZ2N oe SPUSHs ePeSSA 00000020 
0N4647 004764 6010 00 10 3987 TNZ EPP 
29Q8R KR KH KH HHH KH KH KKK HH KH HH H 
Ro * CORE 
3990 * XPAGE HAS NEW POP UP PAGE FROM HERE 
3991 * ee ae 
0N4G650 600172 2221 00 O00 3992 LOX Sa EE aie 
0N4651 777772 6220 12 000 3993 FAX XPAGE se e0C GE XPAGE I 
0N4652 005766 7030 00 O10 3994 TSX CPYSAKYEPYSSA *COPY PTW FROM ng TO Sor 
0N4653  6BOOLOG XL. 00 OO 99 HA 7 ol OADF 29 9F R WHAT KIND OF MODU n R “EAVIN COU00N TO 
094654 000020 3150 07 C00 39964 CANA s020¢eDL TO SEE IF HALF SSA TYPE 00000070 
094655 004664 6010 00 010 3997 TNZ EPP50 * NOT HALF SSA OO0000TO 92 
004656 600224 2241 00 O00 3998 LDX4 Se Laas X4 = PAGE WE ARE LEAVING 00000070 i, ae 
004657 O1O1L2 630 4 00 3999 EPPR OaeS ® 
004660 501020 6315 12 000 4000 EPPR Pls aSHLF 9 XPAGE *P, SRM 00000070 ee 
004661 OOOIUD 1005 00 O00 400 MCR OVE UPPER PEEETATA SITES IEEP EEE OMENS EGET SOOO e Ft eeeetreaen ss 
094662 000000 0037 00 000 4002 ADSC9 1a SENDRG@ 4 SHLFRA PO 00000070 
094663 100000 003 000 4003 ADSCS 990 SEND RG", OF oP VUUDNN TO oe ame oo oe 


4004 *# * *# *# eK HK RK KH HH KH HH KKH KK 


LE E 7 
4006 * IF GEPOP SAVE ONE PAGE FOR HIM yi 
— 4&OOT XPAGE FA Ty OLD PA ROM FP a i) 
| 004664 4008 EPP5Q EQU * | @ 
1N46464 600 21 00 000 C % KPAGE +e SRMWK 9 oP e SSA or. ADDR OR | Se ee ee 
094665 004760 6000 00 010 4010 TZF EPP100 IF ZEROs IT MUST BE SSSSA - 
094666  O0000 060 0 000 4071 "MP X KPXeePNPOP Ss DU z s7@}* | 
094667 004675 6010 00 010 4012 TNZ EPP6 ants BACK TO POOL . 
) +O 7U OU ) 4 ' ere U LO 1 h N & yi OR Por nee ot 
094671 004675 6010 00 010 4014 TNZ EPP6 KYES POP HAS ALREADY ONE | a) 
ON4672 004550 7420 00 O10 4n1 x XPAGE » * SAV OR PUP. GUEU WTO-DISR ana 
094673 600224 4501 00 000 4016 STZ TSRMWKs Pe SSA 
ONG674 QC () ) 9 O10 04 oy POTOO SKIP PAGE RETES 
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02 12"27-79 09,322 H6600J7.057 GCOS IV 4VX DISPATCHER 791219DISP PAGE 114 sf 
AP SRR EIN Sr nS hs ASE OHS 10 DOE SS dh A ik Sn 
FXIT A SSA MODULE ~@ 
9S 
004675 4018 EPP6 FQU 
094675 006166 1020 00 010 4019 CMPX XPAGEsSSAV a Pees Oe pe ge Oa ee .@ 
004676 004723 6020 00 010 4070 TNC EPP65 +* NOT A BORROWED PAGE 6 
ON4677 OOOOO! 2350 O O00 407) LDA Thu GUN V = CONSIDERED R A DTSPU0Z9 26 
094700 006172 0550 00 010 4022 ASA SSAVR ib BERENS ACTUAL IN LOWER DISP00zZ9 ~@ 
04701 200162 2341 00 000 4023 SZN eKLMMGe ePeKk F Y GIT HUT 9 ee te 
ON4702 004723 6010 00 O10 4074 TNZ EPP6S BONY, TRY TO RELEASE (MAYBE DEADLOCK) DISP00Z9 = 
094703 006356 7170 00 010 4025 XED CAPTOR oo @ 
0N4704 000007000000 000 4026 CAPTO7? VFD 18/7918/0 | 00000020 e 
094705 006166 1220 00 O10 4077 BLX XPAGE 2 SSAV OR \ BORROWFD PAGE MINUS OR . 
004706 000000 6350 12 000 4028 EAA 0 +XPAGE OF FIRST BORROWED PAGE DIVIDED -@ 
094707 000034 7710 00 000 4029 ARL 10+18 BY 1024 = DELTA PAGE # IN LOWER 2 2 22 OOOO 
004710 006166 0350 00 010 4030) ADLA SSAV PLUS FIRST PAGE OFFSET IN PT. 
0N4711 000000 6360 05 000 4031 EAQ OsAL QU = OFFSET TO BORROWED PAGE PTw. ss ? 
0N4712 000001 2760 07 000 4032 ORO leDL QL. = WS# EQUAL ONE es 
094713 O06010 4744 07 000 4033 LDP SbePTleD 54 = DPA ABLE O RIPTOR — 
004714 4034 eCALLX  «o¢MDMM1 45 RELEASE BORROWED PAGE « @ 

7 INHTB SAVE SON ae oe 
ON4714 600220 7403 00 000 STXO eSTMPX9 oP eSSA ‘ 

: ON4715 ICLIMB SDaSVXeeeMDMMIX6445 EAXO 000 << @ 
094715 006005713400 000 VFD 18 /oMDMM1 #6445 909/713 61/1 91/091/006/Me a 
ON4716  OO00000606l2 00 VFD 1/0997 ) ve 

| INHIB RESTORE | «@ 
0N4717 006172 0540 00 O10 4035 AOS sone COU R LEASE Mere as 
0N4720 000000 6200 00 000 4036 FAXO 
094721 600224 7401 00 000 4037 #&3STXO = SRHWKy 9s SSA RESET RS_NORWL PATH DOES 
0N4722 004760 7100 00 010 4038 — TRA EPP1OO SKIP AS THO WE DIDN*T RELEASE PAGE: ez 
ee 004723 4039 FPP6S NULL ez 
094723 006042 4734 07 000 4040 LDP P.PRQsSDePROQsDL | z® 
4041 INHIB SAVE<ON. OO 
; 004724 4042 SHUT e DSP Gz 
094725 006047 4756 07 O00 4043 LOP PeSRMeSDeSRMeDL ~@ 
004726 000055 6202 00 000 4044 FAX XO seKLSRMe1 *POINT TO AVAIL QUEUE HEAD a 
0947297 600104 2353 00 000 4045 LDA 051 OAD +29 9Pe SSA *RECOVER .aSNTRY EX D MODULE : er 
094730 010000 3152 03 000 4046 CANA SNeRUS sDU 2 alk MODULE REUSEABLE z2®@ 
094731 004734 6012 00 O10 4047 TNZ EPP6el VE MOD IN e L oz 
906732 500000 4503 12 000 4048 STZ »XPAGE sPeSRM *NO, "CLEAR MOD NOo | 
re ae a ee ee ee 
004734 4050 FPP6.1 EQU * h 
004734 OOO0L 450 000 4051 2 1 oXPAGE Pe SRM mR KPX IN .SCIRL+ ee 
094735 200000 7213 10 000 4052 LXL X1eeX0ePeKL :@ 
094736 004741 6002 00 O10 4053 T2E EPP7 en 
004737 577777 7423 11 000 4054 STX XPAGEs=19Xl9PeSRM 
094740 004742 7102 00 O10 4055  £+TRA Epps — ae ® 
ON4741 200000 7423 10 000 4056 FPP? STX XPAGE 9 9X0 ePeKL ‘ 
05 ‘Ai 
0N4742 500001 7413 12 000 4058 STX Xl el eXPAGE sPeSRM is 
Ope tas O0C00l a2l2-d2° 000; ose. ERY Kale PAGE= = 
094744 200000 4413 10 000 4040 SXL XLesXOsPeKL 
094745 000000 6212 00 000 4041 FAX Mi ee a ee a | 
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1248T 02 12—"27=79 09.322 H660057.057 Gcns IV 4VX DISPATCHER 791219DIS5P PAGE 115 = 
FXIT A SSA MODULE @ 
094746 500000 7413 12 000 4042 STX XL oe eXPAGE sPeSRM e 
ON4747 600224 7413 00 000 4043 STX Xl,eSRMWKoyPeS5SA /*® CLEAR TRANSIENT pOINTER Og 
094750 300001 0113 56 000 4064 NOP DeSSAPsIDoPe PRQ /* COUNT UP PAGES IN POOL de 
0N4751 300002 03 00 600 4065 CXL XOsDedSAP+l 9 9PePRQ /*® CHECK ANY WAT OR \ PF re 
004752 777743 1002 03 000 4066 ~ CMPX X0 6D. SSAP+1=DePROsDU .@ 
004753 004757 6002 00 010 40467  &4|2F &#EPPLO ¥&NO ONE WATTINGFOR PAGE °° &«=« © ©. 9g 
0N4754 020000 2362 03 000 4048 LpQ PS.S5SAeDU 
094755 001402 2562 00 010 4049 ORSO DSPEVT. 
094756 000001 0112 07 000 4070 1.EPP NOP MPENB=MPBASE sDL_ 
4O7] * u e WR UK ¢ Py ViREK PRO SSORK @ 
4072 % IF IDLE+ PAT HIM ON THE SHOULDER. 
OO IS ””COUMSSK”COUéRPCUU PRX MPENB KL KO LOST ss 
4074 | ey 
004757 4075 EPP10 EQU * @ 
7 004757 4076 OPENe DSP 7 
BOR T6O do GOTT FRPPLOO FQU My 
094760 600012 2353 54 000 4078 LDA eSSAeDI oP eSSA /* RESTORE «STKSP | 
ON4761 600216 7553 00 O00 4079} STA wSTKSP 9 Pe SSR oe 
094762 006320 7032 00 010 4080 TSX SETLDXsRETLD 
094743 004366 7102 00 O10 40R1t &TRA TOSE 222722777777 FR REVURN 
4082 INHIB RESTORE /* 2 */ se 
ey YS Se 
4084 * SSA noneer IS NOT IN CORE PUSHED. SO POP IT UP FROM DISk FILE | 
>< 004764 4085 FPP20 EQU ze 
4OR6 * CHECK IF THIS ss ; ents ids SSA TO SSA TF SO ace wad TO POP UP 
4087 * BUT TO DO THI RO TO CLSSA DIRE pF ies oe 
4088 * CAUTION= FROM ISSA TO BESAL CALLEE HSSA MUST BF COADED ON EXITED. Z 
HORS &® PAGE FROM PUSHDOWN FILE) ge 
4090 * SKTP | 
094764 600224 2221 00 O00 4091 LAX  KPAGE ee SRMWKe oP a SSR SES 
094765 004774 6010 00 010 4092 TNZ EPPLIA : 
SS re a Os: ~~ “FNETB “SAVE SON. 4° AM ee ee 
004766 4094 SHUT e DSP 7 
O04764 ACOLO exe eyere O9 Xl. XMOD se OAD 99k e V ADU 
094770 006013 7012 00 O10 4096 TSX GETPGXsGETPG] /* NO PAGE. SO GET "ONE FROM pOOL 
| 0047 4097 ZOPS | » WH - 
0N4772 006173 7012 00 010 4098 TSX GETPGX »GETPG2 4 
ON4773 600103 7243 00 000 4099 ~~ LX XMODeeSLOAD#I 9 ¢PeSSR es 
4100 INHTB RESTORE /* 2 */ #8 
| | 1Ol F T U at 
094774 500000 4441 12 000 4j02 SXL XMODs»XPAGE*PeSRM /* RESET MODULE NO» > @ 
ON47T7! 00 030 00 OI0 1 X NKX oe LINK y= SSPRO Aenea 
004776 005174 7100 00 010 4104 TRA POPUP *GO POP UP FROM DISC 
0047 7 4105 FPP1? FOU % ; 
094777 005766 7030 00 010 4106 TSX CPYSAXsCPYSSA *SET PTW AND «SLOAD+3 «SNTRY a 
Ke UU & 0 () ore Obie ‘HC of: wh | OU OPE me ae 
005001 4108 FPSH EQU # ; @ 
095001 005652 7010 00 O10 4109 #+‘'SX  CDSHXeLDSH AND LOAD SSSR <5 
0N5002 005766 7030 00 010 4110 | TSX CPYSAXsCPYSSA j* COPY PTW : Z 
ON5003 004664 7100 00 O10 4111 FRA EPP5O ¢ \SF EXITED PA »@ 
v 7 
: @ 
ra 
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1248T 0? 128#27=79 09.322 H660NJ7.057 Gcos IV 4VX DISPATCHER T91LZ19DISP PAGE 116 be 
Baa CO se an a Fa a a ee 
eX oF A SSA MODULE 
005004 4112 FPRLS EFQU * 
| 4113 INHTB SAVE,ON DISP8A3R 
| 005004 4114 SHUT « DSP DISP8A3R 6 
0N5005 005577 7Oi2 00 O10 4115 TSX RLSHX sRL OF *RELEA FD R MODU 
005006 4116 OPENe DSP DISPBA3R 
nS INHIB RESTORE 7 Pte ee ee ae oA ee ee 
ON5007 004634 7100 00 O10 4118 TRA EPP14 *GO CHECK IF ANY PUSH DOWN gi 
4119 INHIB RESTORE 7*® 1 %/ ———~_ oe 
ia i a a 
oO” 
ae = 
\ evel ev 
vA‘ @ 
OV 
ae «@ 
BE 
9¢ eo] 
: Ge 
; ; ve 
«@ 
ce 
Le 
«@ 
: 62 
: ‘ 82 
z® 
9o¢ 
oo i a ae Sc 
z® 
€2? 
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z@ 
Og 
oe ec 61 
gh & 
SN aR SC RAE ET Ne Ns Pe TE NS Re I ME I Ce te Pana a a ee tee AADC a ee WOE EUR 5 eR MES TE LENT Rete ROE URC NEON CS err OP NE a eT RE eee ee en EE ee ee ee er rene an ct & 
vl 
| 
LL 
aes « ® 
8 
Oe Bee ea ae hs Ee ey = eS ee ee ee ee er ee ee ee ee ee eS eta ee & 
| | oe 
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12487 02 12"27"79 09.322 H6600J5N7,057 acos IV 4VX DISPATCHER 791219p1TSP PAGE 117 _ 
8S 
iL OAD A MODULE s@ 
4121 * 6s 
DD THTS ROUTINE LOADS THE SSA MODULE FROm SYSTEM FILE OR. = 
4193 x FROm IN@=CORE MODULE IN LOAp SECTION OF START UP a 
OG CCL ING TSK XCOAD LOAD OR LOADS 
4125 % PRECAL XPAGE = PAGE ADDRESS TO LOAD ON (MOD lxy @ 
41?6 %* P.SRM os 
4127 * eSLOADs1 LOWER MOD y TO LOAD es 
BO H””C~C~™”””C”C LADD REGe = MDD ENTRY SO 
4129 * LOADS - XMOD = MODULE NOs ly 
4130 * POST XPAGE ADDR WHER Oo COAD MODU MOD - 
4131 % OTHERS ARE LOST @ 
000001 4132 P.eMOD SET Pi ~ 
000001 4133 P.eDIT SET P1 | e 
000000 4134 PePSH SET PO  @ 
000000 4135 PePAT SET PO i 
== VOU —iae PanCd SEE = 0 
000000 $4137 PeHCM SET PO «@ 
> OON0s e1ab KEOUNT SET SRT COUNT FOR PATCH > ee, 
000001 4139 XPTR SET 1 it 
eee = OOOO eG KEMP GE hs Ql <4 ws Re ae See ee ee | 
005010 4141 LOADS EQU % | ge 
14 , 
095010 006134 4714 07 O00 4143 Lop Pe MDD 9 SDeMDD sDL 
AOSO\1 = A0OCnO sel la Coc “laa SG ODO SS SSS eS 
005012 4145 LOAD  FQU * 
ON5012 600012 7411 56 000 4146 °  STX LOADK 9 eSSAVID oP eSSA 0 SS 
095013 500012 7561 12 000 4147 STA eSMDD»XPAGEsPeSRM_ /* SAVE MODULE DIRECTRY ENTRY “s 
ON5014 0000 60 O 000 «64148 AN =O040000 9DL DADED YT TOAD ON” gy 
ON5015 005117 6010 00 010 4149 ~~ TNZ LOAD4O *GO TO INCORE MOVE a) 
ee sss SRO OO OR OR OR OR EO 
a 4151 * SFT UP IO COMMAND BLOCK IN «SSAIO | _ 
095016 000100 1004 00 000 4152 MLR 21) ~@ 
095017 005320 0000 34 O10 4153 ADSC9 ~—s LD TOC B09 7%4 : - 
005020 ) ; 90s ee a 
O0N5021 000000 6200 06 O00 4155 FAX — XTMP9sQL *FILE ADDRESS 
005023 4157 ZOP 3 | *IF ZERO». UNDTFINED MODULE CALLED 
OnN5074 6OUL6T G40I 00 000 4158 SXL SOX TMP oe SSATO¥e IWSEK 9 9 Pe SSA ®SET SEEK ADDRESS ee _ ? 
GI5QO XR KKH HH RH KR HK RK HHH : 
4760 * OP TDcwes BY MODU VP AND MODULE NUMBRE eee iene ie 
095025 500000 6305 12 000 4141 EPPR Tcl Tela SRM 7 | ® 
OT 50%6 OOOTO00 1004 DD 000 16 MLR MOVE DCW OL WTO THE PAGE ee ee ee 
005027 005352 0000 20 010 4163 ~ ADSC9 LOCWs 1484 
005030 000000 0000 20° 000 4164 — ADSCO a 9GRQ PO 
095031 000004 3160 03 O00 4145 CANQ 49DU *IF MODULE IS. HSSA TYPE 7 
5 “ky ore Onmemmele onme 146 ‘ TAT a eed “UPPER HAT Sie Sas aa 
095033 001000 6200 00 000 4147 EAX XTMP 9 ¢SHLF = SBASE ;@ 
005034 0000 +0 000 168 | XL XTMP 9 e SDCW4+3 eXP 9Pe SRW eo ae 
005035_ 4169 LOAD? EQU % 


075035 006356 0 10 4170 ED CAP” | ® 
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3°) 19 
@ » as ie 7 99 
6s 1248T 02 12=27=79 09.2322 H6600572.057 Gcns IV 4VX DISPATCHER 791219DISpP PAGE 118 se 
8s 8s 
@ . lL. Oo A D A MON UL E ~@ 
98 9S 
¢ 095036 000004000000 000 4171 CAPTO4 VFN 18/4918/0 00000020 ee 
@:: . 4AL72 HEH HH RR HERR RHEE HH See ee 
es | 4173 % SET UP »PSAPT PAT BODY TO READ FILE é 
zs 095037 006026 4714 07 000 4174 LDP P.niTeSDeDIT DL zg 
@. 095040 006204 4704 07 000 4175 LDP PePSHsSDePSHsDL @ 
os 0N5041 000002 6705 00 000 4176 LDD PePATePHePAT + ePePSH Oe eet eg Oe 
on 095042 000760 3760 03 000 4177 ANQ =0000760 DU *ISOLATE DIT INDEX - 
@. 095043 000003 7720 00 000 4178 ORL 3 *DIT ENTRY IS MOD 2 ” sy 
le 005044 100000 2371 02 O00 4179 LDAQ 9QUsPeDIT 7 ly 
ov 0N5045 000040 7551 00 000 4180 STA oPSAPAsePePAT ov 
®@: 0N5046 000044 7561 00 000 4ial STO oPSAPA#4 9 #PePAT : ~@ 
a ee ee ee er eo ie ae ge ee ee PO ne ey ae 
ey 4183 \ GO TO READ THE MODULE 
@. 095047 777774 6200 00 000 4184 TLOADV EAX XTMP 9 =4 
te 095050 600103 7401 00 O00 4185 STX XTMP oeSLOAD*1l eo ePeSSA lv 
ov ; 0N5051 4186 LOADS EQU % ov 
@ «: 0N5051 005255 7010 00 O10 41a7 TSX DMTOXsDMIO « @ 
ae 4188 xe eH Ke HK HHH HHH HH HHH HH KR KK Be GT ae 
Oe 4189 % CHFCK IF THE MODULE IS CORRECT ONR - 
@: 0N5052 500006 7241 12 000 4190 LXL XMODs*SCTRL#XPAGE®PeSRM — | 
ge 095053 500020 6641 12 000 4191 © ERX AOD neo nS Er ACESS SRM oe 
ve ON5054 QO] 640 00 4192 ANX MO ’ ve 
@« 095055 005307 6010 00 010 4193 TNZ DMTOLD *NOT CORRECT MODULE «® 
eS C7 Se Se SS SS i Si A i i Sr A i 
be 4195 * —  CHFCK THE CHECKSUM WORD IF THERE ARE ANY FILE ERROR 
@ 005056 500004 2361 12 000 4196 ICKS1 LNO e SNCW+4 oXPAGE ePe SRM NEN Vee ee 8 eae == 6 
62 0N5057 001777 3760 07 O00 4197 ANQ ~—sOL777eDL *MAX lKeeSNTRY 62 
ez srs —B900KF Tyed 80 —6OE e198 BRS En 
@ ON5061 000000 6350 00 000 4199 EAA 0 2z® 
9z ON5062 000020 6210 12 000 4200 FAX XPTR oe SBASE OXPA AR DDRE AE CKSUN gg 
sz 095063 000000 6200 06 O00 42n1 FAXO 9 QL *#SET FIRST LOOP. COUNT a 
@ 005064 4202 LOAD? EOQU ® a ae a ee | 
éz 095064 004200 6340 07 O00 42703 Lor SYSIR®DL *#SET CARRY INDICATER OFF gs 
ez 00 A 420% R 9 zz 
@ 095066 500000 0711 11 000 4205 AWCA sXPTRePeSRM = ) 
oz 095067 000000 O710 03 000 42706 ~ AWCA oD © ADD CAST CARRY 
61 095070 000001 1360 03 000 4207 SBLO 1sDU *IF ANY MULTIPLE OF 256 io 
@: 0n5071 4 6 I 4708 TPNZ LOA a aT: | 
Au on5072 500016 1151 12 000 4209 CMPA e SCKSMsXPAGE 2Pe SRM a 
91 005073 OO 04 6010 00 0 4210 NZ PMIOCK rCT ZSUM ERRTIR ——_ 
@: 005074 411 ICKSIX EQU * «a® 
nn 42712 HH EK KERR ER ER RR RR Rg 
et 4213 * IF ANY PATCHES » APPLY IT 
@ =: 095074 500006 7241 . 000 4214 Lxl XMOD 9 e SCTRL #XPAGE Pe SRM eT areas 
rT 006075 500012 2361 000 4215 LDQ « SMDD »XPAGE #Pe SRM > 
oO OTB O000 BDO 000 TE ANG E0DUZUU00 SDU PT CHT SOTNTT srr — | 
@ : ~ 0N5077 005112 6000 00 O10 4217 T2F LOAD20 *NO PATCH EXISTS» SO SKIP 
ee  ON5TAO 00020 631 O00 4218 EPPR——Ss~ PL ae SBASE e XPAGE oP. SRP 
Z 05101 006035 4704 07 O00 4219 LDP P.ePCHsSDePCHaDL 
@> OMS1O2 OO009V0 6410 00 OOO 42970 FAX XPTR oO ART AT #2 WORD. BUT PTR & DT SPO 
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0? 12"27=79 09.322 H6600J7.057 Gcns IV 4VX DISPATCHER 791219D1SP PAGE 119 i 

I a aa ac i a i 
8s 
LOAD A MODULE ~@ 

005103 4221 LOQAD10O EQU 
0N5103 000002 1041 11 000 42722 CMPX XO s 2 aKPTRyPsPCH ~ CHECK MOD IN WORD PAIR. UOYSPOOFF ©. 
0N5104 005107 6010 00 O10 42723 TNZ LOADI5 * NOT OUR MODULE DISPOOFF gs 


095105 000002 2371 11 O00 4724 R9 0: ® PULL ENTR I fe) 2s 


05106 100000 7561 05 O00 4225 _ §Ta eAL Pl 4% APPLY PATCH .@ 
005107 4226 |.OAD15 NULL | =) i 
095107 000002 6210 11 000 47297 EAX XPTRe2eXPTR ADVANCE TO NEXT PATCH DISPOOFF _ 
095110 000000 1011 00 000 4278 CMPX XPTReOsePe H fs) D OF TABL ——— 
095111 005103 6020 00 010 4229 TNC LOaD1LO + MORE PATCHES DISPOOFF is 
rere a egg ce OSE. . SAPARD EOU Me. eee ee ee oe Pgs nn ee a Se ge ee eT ee es 
095112 500020 2351 12 000 4231 LDA eSBASEsXPAGE*PeSRM /* SAVE «SNTRY WORD IN CONTROL AREA @ 
095113 500011 7551 12 000 4732 STA e SENTR eXPAGE oP SRM Bs 
095114 600012 2211 54 000 4233 LOX LOADX9eSSAsDI oP eSSA 
095115 700735 0541 00 000 4934. AOS eCRTCLeePeCR __/7* COUNT MODULE LOAD s—sFsSFéSOS; Ce? 
095116 000000 7100 11 000 4735 XeLOAD TRA s LOADX i‘ 
4736 * # Re RK RR KK | 
«4237 * MOVE INCORF SSA MODULE LOADED IN LOAD SECTIONN « @ 
; OO5117 4238 LOAD4O EQU % - 
095117 006356 7170 00 010 42739 XEN CAPTOR 00000020 
095120 000010000000 000 4240 CAPTOB VFN 187891870 
0N5121 006021 4704 07 O00 4241 LDP PeHCMsSDeHCMeDL us 
ON 00020 elere PPR PT ee ODP aXPP Pe OR " =f 
005123 000004 3160 03 O00 4243 CANQ 4«DU *IF HSSA MOVE 512=eSNTRY mm ) 
ONDi246 2005TST 6000 00 O10 “4744 ~~~" —— ZEA GC ee 
0N5125 000100 1005 20 000 4245 MLR (LsOel)o(1) . 
005126 O O00l 06 O00 4246 ARG ~1lsQLoPe ————~_ @ 
095127 100000 0077 00 000 4247 ADSC9 990 SEND#4— 6 SBASEX4 g Pl iy 
QO5130. 005156 7100 00° Ul0 4246 °° TRA. LOADS>” 
005131 4249 LOAD42 EQU * n® 
095131 000100 1005 20 000 4250 MLR (TeOsl) of ee es eee a ee Ge 
se 077777 0001 06 O00 4251 ARG ~1sQLePeHCM 
M5133 YOOOVO 0040 OO OOO 4252 ADSCO 4 vw SHLF Ame SBASERG @PT 
005134 4253 LOAD45 EQU % ez 
075134 =O t 4254 R eg nee cee et 
4255 INHIB RESTORE /* 1 #/ 2-@ 
02 
2 ® 
“i 
91 
os @ 


09 
a | . 
1248T 02 12"27"79 09,4322 H660057.057 GCOS IV 4VX DISPATCHER 791219DISp PAGE 120 : 
PUSH A SSA MODULE INTO FILE s® 
9s 
4257 * . 
GR !™!™~™€CUT ATS): 6GROUTINE PUSHES DOWN A PAGE AT TAIL OF SSPRO } }}§©°~—rW/ 
4259 * PRECAL PeSRM DISPV1.0 = 
4960 * CALLING TSX XPUSHePUSH gg 
4761 * DFNTAL RETURN = NO PAGE TO PUSH DOWN x | 
4262 * NOTMAL RETURN SE ae ee Pe ee 0s 
4263 * POST XPAGE » FREE PAGE (#eSCTRL) ae 
4964 * AVAIL = PeSRM wv ® 
090000 4265 XZERQ SET 0 i 
TO OCOD HB OXTMP SET 8 
000001 4267 XBACK SET 1 *BACK PTR TEMPORARY o @ 
=. 005135 4268 PUSH  EQU * | ow 
095135 600172 2223 00 O00 4769) LOX XPAGE 9 eSSPRQ99PeSSA 00000020 . 
095136 000000 6002 11 000 4270 TZE » PUSHX *¥NO PAGE Se ee ee ee ee 
095137 600012 7413 56 000 4271 VPUSHV STX PUSHXseSSAsIDePeSSA - 
4272 # * kK Ke eK Ke KH KR x & & ¥ * * OR OR KR a ah ai aaa ietiae, 
478 MOVE 10GB FOR PUSH DOWN I/O AND SET UP eee le D 
095140 777777 6202 00 000 49774 EAX XZFROee] . 
095141 600102 0403 00 O00 4275 ASX XZERO+eSLOAD9 9PeSSA /* COUNT DOWN UNLINKED PAGE 
BASLE? 6002247423 00 000 49767 STK ORPAGE 9 © SRMWK 9 9 PSSA” AND TAKE IT AS TRANSIENT shi? 
4277 INHIB  SAVEsOFF /* 1 #/ oe 
095143 000100 1004 00 000 4278 MLR 9(1) a ee 
005144 005327 0000 34 O10 4979 ADSCI  PDIOCB+097%4 «® 
095145 600161 0000 34 000 4880 ADSC9 0 55A109097#49P A SSA gg 
0N5146 777772 6220 12 O00 4981 FAX XPAGE ome SCTRL eXPAGE te 
05147 600156 2351 00 000 4282 LDA » SPUSH#290PeSSA gg 
095150 §00010 7551 12 000 49283 STA oSFEKsXPAGEsPeSRM *SET POINTER IN FILE ez 
095151 600154 2351 00 000 42784 LDA 2 SPUSHs oP e SDA *ADDRESS TO PUSH DOWN THE MODULE °° ©°...©)©—. 82 
0N5152 600156 7551 00 000 4785 STA » SPUSH+299PeSSA | z® 
095153 600167 7551 00 000 4286 STA « SSALO%e IWSEK 2 Pe SSA Se ee ee ee ee ee 
095154 600155 0541 00 000 4287 AOS oe SPUSH#19ePeSSA ee 
095155 000020 2360 07 O00 4288 LDQ 1024/64eDL — # INCREMENT ST7E TO NEXT AVATL AREA z@ 
095156 600154 0561 00 000 42289 ASO 2 SPUSHesPeSSA a 
095187 005356 2370 00 O10 4290  4#L-DAQ  POCW . ........©3»©»©°*®©SET DCW TO WRITE THE PAGE 0S ge 
0051460 500000 7571 12 000 4291 STAQ e SDCWeXPAGE sPe SRM i 
095141 005234 7030 00 O10 4292 TICKS? SX CKSMXGCKOMU CALCUL ALE CHECKS 
095162 005245 7030 00 010 4793 TSX CKSMXsCKSML *FOR BOTH HALF 
Gasins SO0elT eal ie 000 ase rg SCSI PAGES eee 
095164 500016 7551 12 000 4795 STA e SCKSMsXPAGE #PeSRM 7 af 
a 6 296 | ? Jj 91 
095165 777774 6200 00 O00 4297 EAX XTMP o=4 o ® 
095166 600103 7401 00 000 42798 y OER XTMPseSLOADt le eRe SSR gg 
005167 4999 PUSH10 FQU 
0N5147 005255 7010 00 O10 4300 TSX DMTOXeDMIO.. .@ 
095170 700766 0541 00 O00 4301 AOS eCRNPSooPeCR it 
=; 4302 INHIB AVE SON MOD DUNT INTERFAt re 
05171 600012 2213 54 000 4303 LOX PUSHX 9eSSAsDI sPeSSA a) 
005172 000006 6222 12 000 4304 ~~ EAK  ———— XPAGE 9 eSCTRE se XPAG G8 
095173 000001 7102 11 000 4395 X.sPUSH TRA 1 »sPUSHX 
= 4306 INHTB RESTO TR 2 ¥/ EE re 
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PUSH A SSA MODULE INTO FILE 


4307 INHTB RESTORE /*® 1 f/f 


n 


Oe NWN OM FT MW w KR 
i 


@ 


@». 


6S 


= 7 
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ALLA ORLEANS SS SSeS Stes ceRS SNS A SSS eS A Svs yesh SSS SSS SSS srs Ss SS SSS SSS SPSS SS Ss SS SSS Sl ss seve iiss these enoenrnnest Siete. esse aes 


POP UP THE MODULE 


4309 * ss 
4310 * THIS ROUTINE POP UP THE MODULE PUSHED DOWN INTO DYSK FICE 00070000000 
4311 * €s 
000000  =— 4312 XTMP SFT 0 IO a ha om Og ee ae Te a epee 
095174 4313 POPUP  EQU * ® 
4314 %# # HR KKK KH KK HK HH KH KK KH KH mama Ts 
4315 % SET UP 1/0 COMMAND BLOCK " 
4316 INHIB 3 SAVE®OFF PR ED 
095174 000100 1004 00 000 4317 MLR 9(1) _  *MOVE 10CB lv 
095175 005336 0000 34 O10 4318 ADSCO ~=PPTOCBeOeTk4 ae ee Me ee oe iy 
ON5176 600161 0000 34 000 4319 ADSC9 oSSAIN1097#49PeSSA ov @ 
ON5177 600156 2351 00 000 4320 LDA o SPUSHs299PeS5A *SET SEEK ADDRESS vy 
005200 600167 7551 00 000 4321): STA eo SSALTO+e IWSEK 0 Pe SSA a 
G222 KK KKKKHHRKHNHRER KH HR KH HK KH K __ 
4323 % SET UP DCW TO READ BY MODULE TYPE 
095201 600104 2351 00 000 43274 LDA eSLOAD+2 99PeS55A SAVED eSNTRY OF EXITED MODULE 
095202 000020 3150 07 000 4395 CANA 4%*4sDL. *DETERMINE TYPE ee 
095203 005206 6000 00 010 4326 TZE Pop2 ac 
095204 005357 2350 00 O10 4327 LDA PPDCWF *FULL (2KwW) SSA MODULE . i 
095205 005207 7100 00 010 4378 TRA POP4 «@ 
005206 4329 POP2  EQU * se 
075206 005360 2350 00 010 4330 LDA PPDCWH —  WHALF (O0e5KW) SSA MODULE © og 
| 005207 4331 POP4  EQU * «® 
0N5207 500001 7551 12 000 4332 STA o SNCW+l eXPAGE ePe SRM SSO ge 
075210 005356 2350 00 010 4333 LDA. PPDCW *SET UP DCwS Le 
095211 500000 7551 12 000 4334 STA 2 SDCWe XPAGE #Pe SRM «@ 
4335 Ke HK HK RH KH HH AKR HH HHH HH HK Po 
4336 * DO I/0 fO POP UP THE MODULE gz 
005212 777774 6200 00 000 4337 EAX XTMP 9"4 *SET RETRY COUNT : 2z@ 
0N5213 600103 7401 00 000 4338 STX XTMPseS5L0 tlereke 9z 
095214 005255 7010 00 010 4339 TSX DMTOXsDMIO gz 
005215 4340 POPS EQU * z@ 
434] *# * KR Ke KKK HR x* *¥eKK HK Ke HH HK KH 62 
. 4342 % = CHECKSUM CHECK IF THE MODULE TS CORRECT Og ee ee 
095215 005234 7030 00 010 4343 1¢KS3 TSX CK SMX s CKSMU *CHECK UPPER HALF z@ 
095216 500016 1151 12 000 4344 CMPA 2 SCKSMe XPAGE oP e SRM oz 
0N5217 005233 6010 00 010 4345 TNZ POP7O *CHECKSUM FRROR 6 
0N5270 600104 2351 00 000 4346 LDA e SLOAD+2 6 9Pe55A a 
095221 000020 3150 07 O00 4347 CANA 4%*49DL *IF UPPER HALF WAS POPED A 
0N5272 00 6 6000 00 O10 4348 TZF POP : 8 HECK SUP ee ee 
as 05223 005245 7030 00 010 4349 TSX CKSMXsCKSML a® 
095224 500017 Llel 12 0600 4350 CMPQ 2 SCKSM#1 a XPAGE a Pe SRM A ale aa Se 
095225 005233 6010 00 010 4351 TNZ POP70 CHECKSUMERROR re 
005226 4352 POP? EQU # | | a® 
4353 % & & Ke Ke HHH KH KKH HR KR HHH KH HH KR . ve 
095276. 600156 2351 00 O00 4354 LDA 2 SPUSH4¥2 9 oP e SoA RPOP UP LE ADDR | 01 
095227 600154 7551 00 O00 4355 STA eo SPUSHs »PeSSA = | 
095230 500010 2351 12 000 4356 LDA 2 SEEK 9» XPAGE 9 Pe SR RECOVER PRIOR POP UP ADDR 8 
095231 600156 7551 00 O00 4357 STA o SPUSH+209PeSSA ‘ 
095232 004777 7100 00 O10 4358 TRA EPP12 te ae eee 
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POP UP THE MODULE s® 
| 005233 4359 POP7TO  EQU % | ss 
095233 005304 7100 00 010 4340 TRA DMTOCK 7*® RETURN 1S SAVED INeSXRET#1 ——— ——,@ 
GS3A1l * * ee RK HR HK KH KR OK %* KKK HH KH KK ee 
4362 * CALICULATE CHECK SUM FOR Oe dK zs 
4363 % PRFCAL XPAGE ( MOD lk ) PeSRM ~@ 
4364 * PosT LosST XO Xl X3 AQ es 
000001 4365 XPTR SET l *WORK SAME AS DMIOX = 
005234 4366 CKSMU  EQU % ov @ 
005234 000000 6210 12 000 4347 FAX XPTRs0*XPAGE = 
005235 000000 4310 03 000 43468 FLD 9DU \ : r ALSO FOR CKSM | “9 
005236 004200 6340 07 000 4369 LDT SYSIRDL *OFF SCARRY : or @ 
095237 000200 5202 00 000 4370 £RPT eSHLFweSBASE@256 = 
095240 500020 0711 11 O00 4371 AWCA 2 SBASE sXPTR oP eSRM 
095241 000200 5202 01 000 4372 RPT Oel ———————¥UPPER HALF CHECKSUM 1 @ 
095242 500000 0711 11 COO 4373 AWCA »XPTRePeSRM “ 
095243 000000 O710 03 O00 4374 AWA DU 
095244 000000 7100 13 000 4375 TRA »CKSMX | «@ 
| 005245 4376 CKSML  EQU x ae 
005245 001000 6210 12 000 4377 FAX XPTRo5129XPAGE ‘a 
095246 004200 6340 07 000 4378 LOT SYVSIRGDL Ac ca ce ee a ee ee ee 
095247 740200 5202 01 O00 4379 RPT eo SEND™e SHLF "25691 ae 
005250 500000 Of2l Il 000 4380 ~~ AWCQ Ss XPTR oP SR 
095251 000200 5202 01 O00 4381 RPT Oal | ee 
095252 500000 O721 11 000 4382. AWCQ XPT RePe SRM Tag 
095253 000000 0720 03 000 4383 AWCQ sDU le 
095254 000000 7100 13 000 4384 TRA oCK SMX | A i i a es, 
4385 INHTB RESTORE /* 1 #/ | éz 
82 
n® 
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ett ete nerntneettenatanutiemetihnn reenter Rianne nema gnntnent RR NR tt I 


nO 1/0 FOR LOoOADYS/PuUSH SP op 


4387 * 
4388 % THIS ROUTINE DO THE I/0 
4389 * ES 
4390 * PRFCAL XPAGE « PAGE ADDRESS ( MOD IK ) Tg 
4391 % CALL TSX  DMIOXeDMIO ; 
4392 % POST AVAIL = XPAGE : os 
4393 % OTHERS ARE LOST 
4394 % USFD 2 SRMWK #1 
4395 * Ly 
005255 4396 DMTIO EQU % 9p 
095255 600225 4413 00 000 4397 SXL DMTOX9eSRMWK+le9PeSSA a @ 
095266 600225 7423 00 000 4398 STX XPAGE ee SRMWK*leePeSSA /*® SAVE REGISTER} 2222227 22 2 gh 
005257 4399\DMIOR EQU % *RETRY ENTRY 
095257 005350 2372 00 010 4400 LDAQ IODVEC | ? @ 
095260 600226 7573 00 O00 4401 STAQ oe SRMWK4#299PeSSA /* MOVE VECTOR i 
095261 600227 7423 00 000 44n2 STX XPAGE9eS +3 99Pe ov 
O0N5262 600226 6727 00 O00 4403 VCAL3V LDN P.eTODeeSRMWK+2e9PeSSA /* SHRINK I/O AREA DESCRIPTOR «@ 
4404 INHTB SAVESOFF 2222) JR DOR FO ee 
095243 005346 6714 00 O10 4405 LDD P.TOCsIOCVEC a 
005264 4406 e CALL eMTOS951 7®* DO 1/0 « @ 
INHTB SAVEsON se 
095264 000003 6306 04 5267 EPPO MES eh re er ee ee Ore ee 
0952465 700002 7103 00 000 TRA eCRCAL »oPeCR «® 
095266 000002 000063 000 ZERO eMTOS951 ze 
INHIB RESTORE le 
005267 4407 DMIO2 EQU * | «@ 
005267 4408 CALL eMDISP94 /* WAIT RELINQISH , ez 
7 INHIB § SAVE*ON ez 
ON5267 000003 6306 04 5272 EPPRO *#39$ | z® 
095270 600012 4507 56 000 STPO 0 SSA eID ePe SSA | oz 
005271 772513 7102 04 4 TRA 49% ez 
| INHTB RESTORE x® 
095272 006047 4754 07 O00 4409 LDP P. ee /* RESET POINTER - 
095273 0061 4724 00 4410 LDP eK ° og 
095274 600165 2351 00 000 4411 LDA SSSALO+eIWST1 9 9Pe SSA 2@ 
05275 005267 6050 00 O10 4412 — TPL  OMIO2 £¢/*® T7O IS NOT COMPLETE = WAIT a a “oz 
4413 | /* RECOVER DR INDEX LOST IN 10S 
005276 600225 7211 00 000 4414 VCAL4V LXL DMTOXeeSRMWK+leePeSSA = = —<“i=‘“OS—~—: 
O0N5277 600225 2221 00 O00 4415 LDX XPAGE ee SRMWK+199PeSSA 3 
0 Q 18 e O UD U1O 416 ANY A DMMADK a : i) § At nae 
095301 000000 6000 11 000 4417 XeDMI1O TZE »DMIOX — STATUS IS READYs MP = TRA MPCRT 00000020 
095302 000001 2360 07 000 4418 LDO eACOO1 s DL T7O ERROR CODE 00000020 ~~ rk 
095303 005310 7100 00 O10 4419 TRA DMTOER | el 
SG BOG~C~«S PO ODMTOCK EOU % | 2a 
095304 700744 0541 00 O00 4421 AOS eCRTKSesPeCR ree r 
OOODU HAO U VOC 4 D eACOR'd el P| XK OUP P< <i ole VYUOWU ZU 
095306 005310 7100 00 O10 4423 TRA DMTOER 
ea —  OOSSOT «hee DMIOLD ©OUe "8. 4 oe ee Se ag 
056307 Q00003 2360 07 000 4475 LDO eAC003 sDL LOADING ERROR CODE 00000020 


4476 * # eK HK KK KK HK K * ee Ke KR He KR OK 
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nO I #3 FOR LOAD/s/ PUSH s/ P OP 


4497 % 140 ERROR ENTRY RETRY TILL RETRY COUNT 1S ZERO 7 2 
; 005310 4428 DMTOFR FOU i Mey Se 
095310 600103 2201 00 O00 4429 LnXx XO ee SLOAD+e1l92P.SSA 6 
095311 000001 6200 10 000 4430 FAX XOel 9X0 *CO O ZERO 
095312 600103 7401 00 O00 4431 STX XOeeSLOAD+ele2P,.SSA 
095313 005257 6040 00 010 4432 TMT DMTOR *RETRY 1/0 —_ 
095314 500006 4401 12 000 4433 Sxl XOeeSCTRL*XPAGE +P .SRM *CLEAR MOD NOco 
095315 000000 6200 06 000 4434 FAX XO0eeQL *SAVE ERROR CODE FOR 
095316 500005 7401 12 000 4435 STX X0 ee SSASTsXPAGEsP.SRM *SSSA LOADING 
0N5317 005362 7100 10 4436 TRA ERHDL *K 
4437 INHTB RESTORE 
4438 % 
4439 % DATA TO DO 1/0 FOR LOAD/PUSH/POPUP 
4440 * 
005320 4441 LDTOCB EQU * _ 
005320 4442 TOCR4 “TLESPAT eOP=ReDCW=eSDCWe K2#*eOPTION= (SYSIOeNOAB aa, 
(095320 001001000000 000° VFN 9/eKlOe9/eK1L 7TH eK1B+0eK19918/0 
095321 10000040110 000 VFN 18/06 I WCBU2187eIWCBL ge 
0N5322 000000 000000 000 ZERO 2 SDCW 
0N5323 000 0000 60 VFD 4/O0s6/ek ? : - 
095324 000000 000000 000 ZERO 00 | ce 
095325 000 0 00 ZERO Oe | ve 
095326 oO00000000000 000 VFD 36/%H . 
005327 4443 PDIOCB EQU % ze 
005327 4444 LOCB4 FILESPAT sOP=W eDCWs oe SDCWsSEEK=** ,OPTIONS (SYSIOeNOABT) 
095327 002001000000 000 VFD 9/7 aK1609/eK 1 T+eKl Ore 2918/0 
095330 100000401100 000 VFD 18/e¢IWCBUs18/eIWCBL és 
095331 000 O000C 00 ZERO eODCW az 
095332 000000000000 000 VFD 24/0 06/eK22 96/ z@ 
095333 000000 000000 000 ZERO 00 92 
095334 000000 000000 000 ZERO 090 62 
005335 000000000000 000 VFD ZO sHx | ss ) 
: 005336 4445 PPIOCB ace * 4 
exe « 4G R LESPAT sUPSkK »sDCWseSUCWe =F eOPTIONS OSNUAG aan 
095336 001001000000 000 VED 9/. K16<9/oK1720K184.K19518/0 | se 
095337 100000401100 #000 VFR 18/1 WCBUs1876IWCBL 
095340 000000 000000 000 ZERO e SDCW 
ON5341 0 i) 000 Dy 24/0s6/6 
095342 000000 000000 000 ZERO 0.0 
0N3343 -R ye 
095344 000000000000  o00 VED 36/%* 
ON534 2 
095346 000006750640 000 4467 IOCVFCEVEC eDRtPeSSA2eSSAIO97 9 (Row) 
095347 OOOL610017 000 
095350 001777750640 000 4448 IODVFCEVEC SDeSRMo*¥ 910249 (Rew). 
51 , 
095352 000016 010006 000 4449 LDCW IOTP eSCKSM96 
095353 000004 O106 00 4450 TOTP 2 SDCWF 
095354 000000 030071 000 4451 IONTP 257 
095355 000020 001760 000 4452 TOTO ee SRASE 0 © SEND SI gg 
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005357 4457 PPDCWF EQU POCWel 
0N536@1 370000770000 000 4458 DMMASK OCT 370000770000 STATUS CHECK MASK - 


n Oo 1/9 FOR LOADYSPuUSH £¢ P OP 


075356 000004 010001 000 4453 PDCW 1OTP eSDCWH4 0] 

095357 000010.001770 000 4454 TOTO e SFEK 9 eSEND@eSEEK 

0953460 000010 001010 000 4455 PPDCWH IOTND e SEEK oe SHL Fee SEEK es 
005356 4456 PPDCW EQU PDCW 


eg 
s® 


6Y 
av & 
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OVERLAY I/O RERROR HANDLER = POQ3 INTERFACE ,@ 
9S 
46460 * 
4461 * THIS ROUTINE HANDLES DISPATCHER 1/0 ERROR, PUT MESSAGE INTO | 
4462 % PaPa TO POg3e AND WAIT HIS PROCESSING ég 
4463 % IF SUCCESS RETURN TO RETRy* VOTs G eMBRTT « | 
4464 * ~@ 
Sa ae e —  “PRECAL. Qa ERROR CODe  L - 170 ERROR |... ~~ —t—CS | ve 
4466 % | 2 CHECKSUM ERROR . 
4467 * 3 CANT LOAD MODULE ( NOT CORRECT #) °° ov @ 
4468 * POST IF CONTINUE e«SLOAD+l UPPER HAS RETRY COUNT (SET BY P0Q3) _ 
4469 % Sy 
000003 4470 W SET 3 | « @ 
4471 INHIB SAVE SOFP a 
005362 4472 ERHDL FOU 
095362 000001 1060 03 000 4473 CMPX eBX+;PNPODSDU-———FTF-THIS-IS- Bobs SYSTEM CAN'T PROCESED See ee 
095363 000002 6010 04 000 4474 T™NZ 2s1C . 
905564  G475.  4“£0P. 4 SYSTEM 1/0 ERROR ON GEPOP 
095365 600165 4501 00 000 4476 STZ eSSALO+eIWST1 eo sPoSSA « @ 
4477 INHTB RESTORE 8 
005366 4478 SHUTe  OSP 
095347 600017 2353 00 000 4479 LDA eSTATEssPeSSA CHECK SWAP IN CONTROL © 
095370 004000 3152 03 000 4480 CANA a TUSWP DU ee 
ON5371  OOO002 GOOD O04 OOO GARL TOR SOT 
005372 4482 ZoP 4 | «®@ 
005373 4483 OPENe DSP ze 
005374 4484 FRH1 EQU * 
005374 STS COT er og RS Fg 
095375 600017 2353 00 000 4486 LDA aSTATEs oP eSSA - 
095376 0 I 7012 00 O10 448 X PAPGXsPOPG RPUT MES SA INTO POP QUEL peau 
005377 005430 7102 00 010 44288 TRA ERH2 *QUEUE IS FULI. WAIT 2@ 
095400 005443 2362 00 010 4429 ° LDQ ERENB ENABLE REQUEST TO POP. TO, 
005401 4490 eCALL = a MDISP 96 | _ 

; INHIB SAVEsON ®@ 
0N5401 000003 6306 04 5404 EPPRO #439 ey 
O0N540?2 6000Ll2 4507 56 000 STPO eS5SA9lLD Pe DOA zz 
05403 772403 7102 04 6 TRA 60% a) 

— INHTB RESTORE ea eae _ re oz 
005404 4491 FRH3  EFQU * i 
Semone! 91170" —O00000 Oll2z O07 000 4497. NQP DLT ERROR RETR oe 
005405 4493 FRHW FQU * Lt 
q 4494 UT. 
0N54N6 400000 2352 03 000 4495 LDA eRDEADsDU xFROZEN THIS PROCESS WHILE P03 wORK | 
0N5407 600117 2553 00 000 4496 ORSA eORASTeaPe SDA 7 - 
005410 4497 OPEN. DSP | di 
005411 4498 wCALL. eMN1SPell/*® WAIT TILL ENABLE OOOOH 
| INHTB  SAVEsON _ 
095411 OO000S 4 PPRO Kea t es SA 
095412 600012 4507 56 000. STPO oSSAeIDePeSSA as 
095413 772400 7102 04 #413 ®©& TRA &«LleS 
INHTB RESTORE 
05414 006047 4756 07 000 4499 LDP P.SRMsSDeSRM*DL | 7* RESTORE POINTERS ,@ 


: éy 
L9 
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8s gS 
@ .: a OVERLAY 1/0 RERROR HANDLER = POQ3 INTERFACE 9 
9S 9S 
as 0N5415 006133 4726 07 000 4500 LoP PekKLeSDeKLeDL ie 
@:: 095416 600165 2353 00 000 4501 LDA oSSALO+eIWST199PeSSA vs 
Es 05417 005405 6002 00 010 4502 TZE ERHW *NO STATUSs WAIT AGAIN es 
‘ 095420 600225 2223 00 O00 4503 LDX XPAGE +e SRMWK* 2S - 
@ : 400000 4504 READY  BOOL 400000 @ 
os 095421 400000 3152 03 O00 4505 CANA READY sDU 7* BIT O ee 
7 005422 005257 6012 00 010 4506 TNZ DMIOR =1 = OKs CONTINUE is 
@. 095423 500005 2363 12 000 4507 LDQ Seen or XPAGE»PeSRM =0 ~ UNRECOVERABLEe GO ABORT * 
es 095494 000022 7722 00 000 4508 ORL Q=REG = ABORT CODE i. 

y 005425 4509 ,CALL SRBRT gS BR 
@: INHTB SAVE 9 ON | o 
vy 095425 000003 6306 04 5430 | EPPRO *#30% es 

ey 05426 700002 7103 00 000 \ TRA eCRCAL osPeCR 
@: 095427 000036 000003 000 ZERO eMBRT1lo3 
tv INHTSB RESTORE iv 
v 4510 eSSA STACK D MPORARY Oe MU l ae 
@ «: 005430 451) FRH2  EQU + | «® 
8 005430 4512 OPEN» DSP Be 
7 00543} 4513 eCALL — a MDI SP 016 /* DELAY AND WAIT re 
@: . INHTB  SAVEsON «@ 
e 005431 000003 6306 04 5434 EPPRO *4#30$ ee 
ve 095432 600012 4507 56 000 STPO 0 5S5AelDePe SDA ve 
@«: 095433 772365 7102 04 20 TRA 160% «@ 
ZE INHTB RESTORE ge 
Le 095434 006047 4756 07 000 4514 LDP P.eSRM9SDeSRMsDL 
@ -: 05435 006133 4726 07 000 4515 LDP ~)>6PekLs5D GU ee ee -® 
a 095436 600225 2223 00 000 4516 LOX XPAGE 9eSRMWK+199PeSSA /* RECOVER é 
ez ——Gnsaay SOOOUS Boer le 000 A517 LO SSRSTAXPAGESP SSR ERROR COM ee 
@ .: 0N5440 Q00007 3762 03 O00 4518 ANQ 7sDU z® 
92 0N544)1 000022 7/22 00 000 4519 QRL 18 92 
Gz 0N5442 005374 7102 OO 010 4520 TRA ERH1- *RETRY QUEUEING Sz 
@. 095443  O0000177000 000 4571 FRENR VFO 187ePNPOPe 70 *POP ENABLE REQU z@ 
ez €2 
ec AA 
@ :: z@ 
oz gg 
6} 6h 
@: 3s @ 
Lb Lt 
91 maaan 
@: i @ 
vi vl 
€t €l 
@: ma) 
LL Lk 
Of 
@ : 
Zz 
@> 
Ss 
@ : 
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a a a ae ee a a a 


meee ene nn een en nn nn nT Ee 


GATED Me 20 De Oe HANDLER 


rrr nine tA tt renters Ne errs ep 


4523 % GATE SHUT ROUTINE FOR MODULE GATE 
4574 * 
oN0001 4525 XPTR SET 1 
- 005444 45276 GTST EQU * 
095444 600220 2353 00 000 45297 LDA @STMPXeePeSSA /* MODULE NQOe : 
05445 400000 2752 03 O00 4528 ORA SEGID*DU 7/* SET INDICATOR OF HCM ee 
005446 4529 GTSTS EQU * /* ENTRY FROM CLSSA 
005446 4530 SHUT e DSP 
005447 4531 SHUT e GTM | tp 
005450 0 2362 10 4532 LOa GTM i 
005451 200001 7203 00 000 4533 LXLO loePeGTM *REPEAT X »@ 
005452 000002 6212 00 000 4534 FAX XPTRee2 vw 
005453 000000 5202 01 000 4535 RPTX ol *SEARCH FOR THE MODULE ENTRY _* 
005454 200000 2113 11 000 4536 CMK aXPTRePeGTM - ee eS 
005455 005474 6012 00 O10 4537 TN2 GTNEW *NOT FOUND » SO IT IS NEW MODULE se 
0ON5456 277 236 000 4538 LDO wleXPlRePeGIé RKPULT. OU A YTRY oe ae 
005457 777777 3162 07 O00 4539 CANQ #1sOL « @ 
005460 005503 6012 00 10 4540 — TNZ GTWT SEDe W Oe es 
O0N54461 277777 4463 11 O00 4541 SXL KPXe=leXPTRePeGTM *SO*s WE GOT IT we 
«S542 )~)~)~~—COG BA? GTST? EQU * een ha “oe ae ee ee eee 
095462 600102 0543 00 O00 4543 AOS ee *COUNT UP USEING GATED MODULE - 
ONS443 G2 4544 LOO G e 
095464 600017 2563 00 000 4545 ORSO sSTATEs Pe SSA *SHOW GATED MODULE IN USE a ) 
EEE DL SISILLSSSS"""BODGED GG  (OPENe - GIM- ©. — ge ee ae 
005466 4547 OPENe DSP 
095467 400000 3152 03 O00 4548 ik Seqlo00. ee ee ee ee 
095470 004366 6012 00 O10 4549 TNZ TDSE | ez 
N5471 6 4/26 4550 e 9 ° 9 az 
095472 006047 4756 07 O00 4551 LDP P.SRM*SDeSRMoDL 2® 
a 095473 004474 7102 00 O10 4552 TRA CLnNo SS Ge — gg 
005474 4553 GTNEW EQU % 2 
095474 000000 6362 01 000 4554 EAQ vAU 7® MODULE NOe === O 
095475 001777 3762 03 O00 4555 ANQ MOMSK 9DU ez 
095476 200000 ro) oleze 4556 Q aXPT Rare v AP IK POTN NEX AVAIL CNIRKY - me ON 
095477 200000 4463 11 O00 4557 SXL KPXeeXPTRePeGTM *SHOW IN UXSE _@ 
ON5500 002000 2362 07 000 4558 LDQ  =07000sDL  *COUNT UP NO. OF ENTRIES 
On5501 200001 0563 00 000 4559 ASQ LoePeGTM 
ON5502 005462 7102 00 O10 4560 TRA GYS1 20 ee | 
4561 Lh 
Se ee eae a = ———— MODULE GAT cWAL ls ROGTENGs = = 2 eo gS a ee er 
| 4563 : : 
ee 4564 G FOU ¥ Oe ae 0h fares he te Bee te ae oe 
095503 600012 7553 56 000 4545 STA eSSAsIDePeSSA /* SAVE INDICATO AND MOD# 
005504 600012 2429 66 000 455e STIX” BROES SSSASIDGE. SSA Oe 
0N5505 400000 2362 03 000 4547 LAA =0400000sDU *SHOE SOME ONF WAITING ia 
0 76 | 3 orele 6G RSG ~1eXPTRePeGiN T 2 0 | = : 
005507 4569 SHUT e PST 
075510 000000 6222 00 000 4576 EA XROE +0 KGATE EVENT WA REGU 
005511 4571 eCALL eMDISPs20 
TNHTB SAVE SON ea ew ee i Sek Pe ee Pe 


19 19 
@ »s tee a , : oo 
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8s es 
Oe ATE MODULE HANDEL ER mma lc 

9S 9S 

ss ON551) 000003 6306 04 5514 EPPRO #439 
@:: 095512 600012 4507 56 000 STPOeSSAsIDePeSSA 2 

€¢ 005513 77231] 7102 04 24 TRA 2005 €S 

zs 7 : INUIG: RESTORE =. > Se ee ee 
@: M5514 600012 2223 54 000 4572 LOX XROE 9 eSSA2DI oP eSSA 00000020 @ 

0s 095515 600012 2353 54 000 4573 ~~ LDA = »SSAsDIsPeSSR ae 

ev 005516 005446 6052 00 O10 4574 TPL, GTSTS /* FROM SSA GATE Be 
@: 095517 400000 6752 03 000 4575 £€RA  SEGIDsDU  (/* FROM HCM © ©”). VQ 

an 005520 600220 7553 00 000 4576 STA oe STMPX9 oP eSSA /* RESET PARAMETER SAVE 6 

ov 0N5571 400000 2752 03 O00 4577 ORA SEGIDsDU ov 
@: 005522 005446 7102 00 010 4578 TRA GTSTS « @ 


. 095523  GOO000TT?777 000 4579 GTMASK OCT 400000777777. : = aes 
ev \ ev 
@: a @ 


‘ oo ® 
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GATED MODULE HANDLER | @ 
4581] * Gs 
4582 % GATE OPEN ROUTINE FOR MODULE GATE TTT TE —= @ 
000000 4583 PempDn SET PO a 
Sea ee ee ee Rar = - aie RE eG wet ta aes ee ae eT ee Pe eg ge oT 
095524 600220 2353 00 O00 4585 LDA eSTMPXs 2PeSSA ha (RECOVER MOD ®@ 
095525 005573 450 7 O10 4586 TZ GTWK »PN ATOR 4 GAT SO og 
075526 O00002 7102 04 000 457 TRA 201C by 
005527 4588 GTtoPpS EQuU. * #® ENTRY FROM EXSSA ov @ 
005527 005573 5542 17 O10 4589 STC GTWK »PN SET SSA INDICATOR 00000020 ‘a 
095530 001 ( 52 O OOO 4590 ANA MDMSK #DU MODU NUMBER @ EIN | ) ov 
075531 000001 3362 07 O00 4591 LCA 1sDL ov @ 
ws ae OOSSaL —459e  —SHUTs DSe we ee - 
095533 600102 0563 00 O00 4593 ASQ eSLOADs ePeSSA *COUNT DOWN NUMBET OF GATE SHUT 
095534 600102 7213 00 000 45904 LX XleeSLUADeePeSSA im) 
05535 005542 6056 00 010 4595 TPNZ GTOPO] *OTHER GATED MODULE IS IN USE is 
095536 O00002 6002 04 O00 4596 TLR DOT nT OP 
005537 — 4597 ZOPS *NUMBER TURNED TO NEGATIVE «@ 
095540 001000 2362 03 000 45908 #LDQ  eTGATE+DU *NO MORE GATED MODULE IS IN USE 
0N5541 600017 6543 00 000 4599 | ERSO STATE 9 oP SSA *RESET GATE MODULE BIT IN eSTATE - 
ar 1011579) 4600 GTOPOl FOU # | ————=«@ 
005542 4601 SHUTe GTM 7 ss 
OObo4a O0>5es osec 00 O10. 4602... -L@ GYMASK |...) en eens ee essen i 
095544 200001 7203 00 000 46n3 LXLO 1osP.eGTM *REPEAT INDEX .@ 
095545 O00002 6212 00 000 4604  EAX XLed TT ag 
05546 000000 5202 01 000 4605 RPTX 1 
On55a7 200000 2113 11 000 4606 ~ CMK meV eG ry 20 arg eee eg ee ee ee ee ee 7) 
005550 000002 6002 04 000 4608 T2e 2eIC - 
Ree eee ee Oe ey naan = = Ope. se ee eS ae ee ee ee 
0N5552 000002 7462 04 000 4610 STX KPXe2sIC | a) 
ON5553 277777 7203 11 O00 GOTT LXE XO em La XD Pe GTM Sg 
095554 000000 1002 03 000 4612 CMPX X0ox* 9DU . 
OA5555 O00002 6002 04 000 4613. '2E 21c¢.:CC™:*~C:*CSsSC“‘ SSS eats a) 
005556 4614 ZOPS re 
\ ( YOO 616 S ~[TsXLore y PT) e —- Pry sae ms 
095560 277777 7553 11 000 4617 STA m1 aXlsPeG™M *RESET THE ENTRY | .@ 
On Al Q) 6 AU Ors ob ie 6128 x - N WR OK Pq |S WW U ag 
095562 010000 2362 03 000 4619 Lba PS.GAT sDU 
095543. 001402 2562 00 O10 4670  4ORSQ  ODSPEVT 
095564 000001 0112 O07 O00 4621 1eGTOP NoP MPFENB=MPBASE sDL 
46? * MU am bbe Urea UP K UTREK RKO SSOK @ 
4623 % IF IDLE» PAT HIM ON THE SHOULDERe 
BB TSK PUT RR 9 EN 
005565 4625 GTOP1 FOU * 
Fo eee et eS a Os = = “Ease TOPENG GEM a eee ng ea ig eng re tera ge eT a a ee 
| | guOweee | 4627 OPENe DSP ‘ 
ONS567 ere ene 628 N 3 Ko PN TT A ODU OPENED OU0000 20 oat =a - 
095570 004366 ae 00 O10 46279 TZF TDSE HCM MODULE 
005571 OO061 4726 00 4630 LDP eKL oe SDeKL DL 
095572 004634 7102 00 O10 4631 TRA EPP14 
85575 4632 GTWK BSS eNRPRC WORK AREA FOR GATE O0DD0020 
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SHARABLE S8SA MODULE ROUTINE @ 
9g 
4634 * 6s 
4635 % THTS ROUTINE PROCESSES SSSA TYPE MODULE | OADING — és 
4636 * ASSIGN AND RELEASE - 
4637 * zg 
Se a a ee a ee ee en a eee ®@ 
4639 — a6 
4640 * 6Y 
4641 * RELFASE SSSA MODULE ae. 
4642 % PRECALL XPAGESPAGE TO RELEASE «+ eSCTRL ye 
4643 * SHUT =» DSP ov 
4AH44 * PKL ov @ 
4645 % POST LOST XO Xi X2 X3 A Q@ PO PL P3 > 
ae 4646 \% | 
000001 4647 PaSRM SET Pl 7*® IN THIS ROUTINE Pl IS USED =—- 
4648 FOR INTERFACE wITH CI.DDS = 
000000 4649 XTMP SET : ~ ov 
005577 «4650 RLSH _FQU  @ 
095577 600012 7413 56 000 4651 STX RLSHXs sSSAs TDs Pe SSA 2 
005600 006047 4716 07 O00 4652 LDP PeSRMeSDeSRMsDL 
ON5601 600224 4503 00 000 4653 STZ SGRPMWKGSPEGOR: ~~ SS ee eee ee a ee eS Tee 
ON5602 000001 3362 07 O00 4654 LCA 1eDL 
095603  LO0001 0563 12 000 4655 ASQ 1eXPAGE ePeSRM COUNT DOWN USING PROCES OUNT 
0N5604 100001 7203 12 O00 4656 LXL XTMP 91 oXPAGEsPeSRM 
005605 005620 6012 00 010 4657 TNZ RL SHE 7*®* SOME ONE IS USING YETe SKIP RELEASE 
095606 177777 2363 12 000 4658 LDQ 0 SSAST#eSCTRL eXPAGE 2PeSRM /* IF IN LOADING STATUS, THIS 
095607 005626 6012 00 010 4659 T™NZ RLSH20. RELEASE MEANS ERROR IN LOADING} ©”. 
005610 4660 RLSH5 FOU * 6 
095610 006042 4736 07 000 4éal LAP PePRQ2SDePROPDL Ty tee ee ee Se ee 
ON5611 300001 0113 56 000 4642 NOP DeSSAPeIDePePRQ f* COUNT UP AVAILABLE PAGE COUNT 
0N5612 300002 7203 00 000 4663 LXL XTMP eDe SSAP41 9 9P.PRO 7® CHECK TF ANY WATT 92 
005613 777743 1002 03 O00 4664 CMPX XTMP sDeSSAP 41 =DePROQsDU 
095614 005622 6002 00 010 4645 TZF RLSH1O i ¥NQ ONE WAITe SKIP ENABLE 
0N5615 020000 2362 03 O00 4666 LDOo PS.SSAeDU 7 
ON5616 001402 2562 00 O10 4667 ORSQ DSPEVT gg 
: . 005617 4668 RLSHO EQU x 2@ 
0N5617 000001 12 0 000 4669 TeRLSH NOP MPFNB@MPBADSE 9D MU “PKOC R oz 
4670 # TSX PUTPRX »sMPENB *ENABLE IDIE Cpu 
4671 * . 9 ® 9 
005620 4672 RLSHF FQU x ii 
20 6UD0 YOO 6 X RLSHX%e Hell ere 7 ) aca 
056721 000000 7102 11 000 44674 _ TRA #RL SHX s®@ 
SOB Z2 CGB TS RESHIO CQU 
05622 001402 2342 00 010 4676 SZN DSPEVT /* IF ANY REQUESTs GO ENABLE = 
095623 OO5617 6012 00 O10 4677 ~~ TN2 RLSHo. °° .~«.—<CC SS ASO Ea ee 
0N5624 600012 2213 54 000 4678 LOX RLSHX9eSSAsDI ePeSSA i, 
005625 000000 7102 II 000 4679 TRA sho ol 
005626 4680 RLSH20 FQU 
095626 77777 3162 07 000 4681 £4CANQ” 0 eA : 
05627 005632 6002 00 010 4682 TZE RLSH21 WAKE UP THOSE j 
05630 004000 2362 03 000 4483 LDO PS.S510eDU »@ 


a en a ee ee nee ee ee, ee ee r 
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SHARABLE SSA MODULE ROUTINE ~@ 
095631 001402 2562 00 010 4684 ORSO DSPEVT | si 
005632 4685 RLSH21 FQU * : ~~ @ 
0956322 500000 6317 00 O00 4686 EPPR PleesP5 ULSSSA ROUTINF REQUIRES SRM IN P5 os DISPOPGJ as 
095633 006047 4756 O 000 46a7 LpPs SD. ORM9D OD SAVE OUR PS AND AD PS W, SRM DISPOUPRG _ 
095634 006237 7032 00 O10 4688 TSX LINKXsULSSSA /* UNLINK FROM SSSA QUEUE ; 
095635 100000 6357 00 000 46R9 EPPR P5ye0Pl RESTORE Pl AND PS DYSPOPGQ 0 og 
095636 006047 4716 07 000 4690 Lop PeSRM2SDeSRMeDL DISPOPGJ o 
0N5637 100000 4503 12 000 4691 STZ »XPAGE oP e SRM ov @ 
095640 100001 4503 12 000 4492 STZ 1 sXPAGE #PeSRM e 
095641 200054 7213 00 000 4693 = EM LORIN mR a nr em GE OPIN, es ee ee 
095642 000003 6002 04 000 4494 TZF 361C /* AND LINK THE PAGE INTO v ® 
05643 1??777 7423 11 000 4495 STX XPAGE sel eXlePeSRM EMPTY QUELIE sss 
0N5644 000002 7102 04 000 4696 TRA 29IC 
095645 200054 7423 00 000 4697 STX XPAGECIRLGRMGSPcKl SSS 
015646 100001 7413 12 000 4698 STK X11 eXPAGEsPeSRM “ 
GnSenT “NO000T Geie 12 000 anes a ORC SS SS 
ON5650 200054 4413 00 000 47n0 SXL XleeKLSRMs oP eKL «@ 
095651 005610 7102 00 010 4701 ER RLSH5 ee 
000005 4702 PeSRM SET P5 /* REASSIGN Ms 
a a a ea 
GE 
ee & 
ce 
Le 
O€ & 
62 
82 
LZ ®@ 
92 
G2 
z@ 
€? 
@ 
12 & 


oe XN OM SF WH Oo NR W 


' 


| 500000 2113 12 | : CMK : : 
3 TNZ ¥ F ; nee 


005706 6012 00 


400000 2352 03 


| 
“on ~~ 
Ae AE SSS SSAA Sv SSS SSS SS SSS SSS SSS sss SSDS css SAS sss ss ss SS ssi pS SS SS tS sh ss sss hss ss esses ens ain eanS 


LDA 


»XPAGE »PeSRM 


=0400000sDU *SET SSSA LOADING BIT 


09.322 H6600J72057 GCOS IV DISPATCHER 791219DTSP aa 
SHARABLE MODULE ROUTYINE .@ 
9S 
~ 4705 * LOAD / GET / RECOVER SSSA MODULE ng 
ee eee , PRECAL DSP «= MUST BE SHUT . 
Se ee eI CALL COTS LDSHXSE Dom. mr eins be ee tree nS ne ee 
POST ( MOD 1K ) @ 
OS 
005652 FQU 
SRSGEE—SUOOTE Tae eee eH Meee e88E— = 
005653 4712 LOSHR1 EQU 
005653 SHUT e a 
777777 2362 03 Loa ‘ 7 ov @ 
0N5685 200056 2223 00 000 4715. LDX XPAGE 9eKLSRM+299PeKL *555A QUEUF HEAD | a 
005706 6002 00 TZE GO LOAD MODULE ie 
005657 4717 LDSHR2 NULL | ® 
600103 2353 00 LDA oSLOAD+199P6SSA *MODULE NO. - 
0 5002 00 RPL U 


577777 2353 12 LDA 2 SSAST#eSCTRL 9 XPAGE 9P 6 SRM ie 
095644 000007 3152 03 000 4723 CANA ?ehU —  #® TF TN ERROR... TT @ 
005657 6012 00 TNZ *#RETRY SEARCH se 
095666 400000 3152 03 000 4795 CANA =O4000000DU “IF LOADING [/O0 ©. TT Gg 
005752 6002 00 TZE «@ 
577777 4463 12 SX ze 
005671 4728 LDSH2 EQU | 
— -—«s SOBBFLT—<“—~«~STPG””~”~”~C«SSNTeSC<=i*SKCTO*~‘(COC‘((C((((N((((TVV©}©}©}©VVVT es a 
000002 6222 00 EAX *SSAIO WAIT REQUEST 6z 
6 2 CALL ez 
INHTB zu® 
6306 04 EPPRO E oz 
4507 56 STPO oSSAsIDePeSSA i 
7102 04 TRA x ® 
INHTB Ez 
4% 6 U LD zz 
4726 07 LOP PeKLeSDeKL DL z@ 
095700 005653 7102 00 O10 4734 TRA LDSHRI Ee —————————————— 
| 005701 4735 LDOSH3 EQU 
ON5701 006042 4736 O07 000 4736 LDP ~~ PePROsSDePROQ®DL ) 
300001 2203 00 LDX Oe eee 7 
fy U N oi 
600012 7413 56 STX GETPGX» eSSAs IDsPeSSA a® 
) R Yi 
005706 4741 LDSH4 EQU et 
OT} 00 rs a®@ 
300001 0113 54 NOP DeSSAPsDI sPePROQ 7 
006173 7012 00 ) TSX GETPGX sGETPG2 *GET PAGE FROM POOL UNLINK IT a 
4746 LDSH5  EOQU . 
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SHARABLE SSA MODULE ROUTINE i. 
9S 
095713 600103 7243 00 000 4749 L XL XMOD 2 eSLOAD+199PeSSA de 
095714 500000 4443 12 000 4750 SXL XMODs eXPAGEePeSRM *SET MODULE NUMBER 7 z 
005715 600224 4423 00 000 4751 SXL XPAGE 9eSRMWK29PeSSA *SAVE PAGE ADDRESS e 
095716 500001 0543 12 000 4752 AOS  LeXPAGEePeSRM “SHOW I. AM USING IT ©) 2g 
095717 006356 7172 00 O10 4753 XED CAPTOR 00000020 . 
095720 000002000000 £000 4754 CAPTO2 VFN 1872918/0. HO OOO0ZO oe 
00572) 4755 SHUT « DSP e 
000000 4756 KBACK SET De 
0N5722 200056 7203 00 O00 4757 Ex XBACK *eKLSRM+#299PekKL *LINK THE PAGE TO END OF i 
0N5723 OOOOL 740 000 #84758 TX XB 91 9XPA Pe ORM y OU mages 
095724 000003 6012 04 O00 4759 TN2 3e1C a 
ON5725 2 6 2 4760 ; TX AGE 96 +Za9Pe an 
005726 000002 7102 04 O00 4761 TRA 2eTC 
005727 S7TT777 7423 10 000 4742 STX SPACEGaLUNDACK Det SSeS SS ee 
005730 000001 6202 12 000 4763 FAX XTMP 91 XPAGE ‘. 
005731 200056 4463 00 000 4744 SXL WIMP esKLORMS2esPeki fr a 
005732 4765 OPENe DSP | «<@ 
0N5733 T????l2 6202 12 000 4766 FAX XPAGE ewe SCTRLOXPAGE *POINT TO PAGE HEAD 
0957324 005010 7012 00 O10 4747 TSX LOADXsLOADS *GO LOAD THE MODULE ie 
=o Oreo. sete ‘oHUl«. oDee 0- coo. 0 ee ee en re ee arenes ee een ee ad 
0N5736 500005 2353 12 000 4769 LDA oe SSASTeXPAGEsPeSRM *ANY WAIT FOR THIS | = 
005737 400000 6 0 OOO ot he A =()400000 eDU oF ee 
095740 500005 4503 12 000 4771 STZ oSSAST so XPAGE®PeSRM *CLEAR CELL «<@ 
ON574) OOS5747 6002 00 O10 4772 T2E  LDSHG 0 
095742 004000 2352 03 000 4773 LDA PS.S19eDU 
Ons743 001402 2552 00 O10 4774 ORSADSPEVT __________ ¥ENABLE_THOSE_ WATT ——————————~——_—— 
095744 000001 0112 07 000 4775 TeLDSH NOP MPENB=MPBASE »DL *IF MULTI*#PROCESSOR = 
O05 74 Sele 00 000 776 XPA +e ORMWK OOP e A RECUVER mere 
ON5746 777772 6222 12 000 4777 FAX XPAGE e=eSCTRL sXPAGE ee 
4778 LDSH6 EQU ¥ | ee ge ee LS a ee a as 
| | 005747 4779 OPFNe psp 
On5750 6 221 4 4TRO LDX DSHXee aDIeP. 
O0N5751 000000 7102 11 O00 4781 TRA eLDSHX. 
005752 500001 7203 12 000 4783 LXL MINES UARASE SES SRM *1S IT IN USE 
0057653 6 6 4TAR4 
0N5754 006042 4736 07 O00 4785 LDP P. DRGs SDePRQsDL | 
OAST5S—S00UL OLI3S 54-000 a 7h’ S/O SAP SDT Pe PRO 7 *- COUNT DOWN AVAIL BAGE-COUNT 
005756 4787 LDSH1 EQU x | 
6 600 : 00000 Re i KPAGE te ORMWK 9 9Pe DOA 
005757 500001 0543 12 000 4789 AOS 1 »XPAGE ePeSRM *COUNT UP NOe OF PROCESS 
YS 0A d 9™ 6 9 = Se ea 
005761 4791 OPENe DSP 
ON5742 006356 Tl72 00 O10 4792. XE CAPTOR goo0002D @ 
095763 000001000000 000 4793 CAPTOL ue 18/1918/0 00000020 ' 
ela}. 5000 000 ~ DSHX te DOA PP ead : 
095745 000000 7102 11 O00 4795 a »LDSHX 
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5 ue oe Da! (a, ROUTINES 


ee 4797 * | 
4798 * COPY PTW FROM SRM Me SA MODULE IS MA peer, 
4799 * PROCESS SPFCIFIC PAGE €S 
4800 * wSNTRY IN e5LUAD* AOW WHAT MODI MAPPED FOR U 
4801 * PRFCALL X2=-PAGE a IN SRM OFFSET 
4802 * CALLING TSx  CPY és 
4803 * POST LOST KOsXLeAsOs PQ | a 
4804 * : . gy 

000000 4805 PePT SET PO ie 
, 005766 4806 CPYSSA EQU % 

05766 006133 4726 07 O00 4807 LOP PekKLeSDeKLoDL 

005747 006010 4706 07 000 4808 LDP PePTsSDePT1l DL es 

005770 200061 6353 20 000 48n9\ EAA eK SRPo*ePeKL *GET PTW INDEX X2 1S USED HERE ne 

005771 O000l2 TTl2 000004810 ARL LOSS PAGE NUMBER eee : aw @ 


05772 000000 6202 01 O00 4811 EAX XOs9AU 00000020 i 
yn TS OOOONT 2 56S 10000 RETR BET rr ct —" 


@ « 005774 500011 2353 12 O00 4813 LDA eo SENTRoXPAGE oP e SRM : mm ) 
ge 095775 600105 7553 00 O00 4814 STA 2 SLOADS3 90 e * MODULE IS J er es 
ls 095776 500012 3753 12 O00 4815 ANA — @SMDD»sXPAGE®PeSRM © 
, 0N5777 004000 3152 03 000 4816 CANA SNaPRVeDU — RPRIVITY BIT IN @SNTRY 
ge ON6000 000002 6012 04 O00 4817 TNZ 20IC *#YES ON es 
ve 0N6001 000010 6/62 0 000 4818 ERQ =O0106D ENO CRIN “Igl¥ % STN * 
@ : | 006002 4819 CPYSSC NULL 00000020 
ze QN6002 200062 6203 20 000 4a20 FAXO eKI SRP] e¥ePe LOCATE EXCLUSIVE A PA OR TR ofelererereyase 
le 096003 000000 7563 10 O00 4871 STN O09X09P0 PROCESS AND STORE PTW 00000020 - 
@. — 006004 4822 eDCAMP PekL DEFERRED AR ASS*V=MEM oc 
62 . INHIB SAVE» ON 62 
82 006004 200147 To03 OO 000 STC? eKLCAM+0esPeKL gz 
@ ON6005 200150 7503 00 000 STC2 eKLCAM+lesPeKL | 2® 
9z O0N6G006 2001591 0 STC2 eKL +2agPe ~ 
sz 0N6007 200152 7503 00 000 STC2 eKLCAM43 9 oPeKL i‘ 
@ 096010 000000 5326 CAMP i ee 
ez 0N6011 200147 4503 17 000 ST? eKL CAMs 7oPeKL = 
es Mes eeegee” Gee Aor ons cage ee eee re coe > REC a erg re r e iR  e  O ey  ee e 
@. —0N6012 000000 7102 13 000 4823 TRA »CPYSAX = | 
O¢ 02 
6h 61 
@ gi 81 @ 
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@ |. BASIC ROUTINES @ 
6s 4825 %* 

@ .: 4826 * GET A PAGE IN COUNT OF DeSSA REAL PAGE wIILL NOT BE GOTTEN —@ 
es 4827 * PRECAL DSP MUST BE SHUT ie 
zg 4828 * CALL TSX GETPGXeGETPGI zs 

@ : 4829 % RETURN 1 = AVAIL PAGE By XPAGE (+eSCTRL)s DSP OPEN .<@ 
OS 4830 * RET URN 2 = SEARCH TN QUEUE « DSP SHUT 0S 
oa post AVAIL PeSRM———C—C—C“‘(is 

eo. 4832 % ze 
Lv 006013 4833 GETPG1 EQU * Ly 
oe 096013 006 4736 4834 LDP oP ° 

@.: ON6014 600154 2343 00 000 4835 SZN SSPUSHs ePeSSA *ANY SSA PUSHED DOWN TO DISK 
e 06015 006022 6012 00 O10 4836 TNZ CLDPG ¥FORCE TO PUSH DOWN SSA... ee 
ey 006016 4837 GPO EQU %* 

oo. ON6016 300001 2203 00 000 48368  LDX XOeDeSSAPoePePRQ /* ANY SSA PAGE. 

7 - 0N6017 006022 6002 0O 010 4839 T7E CLDPG *NO PAGE LEFT MANAGE IT . 
ov ONEO2SO 4840 GPI EQU % or 

@ :: 0N6020 300001 0113 54 000 4841 NOP De SSAP eDI »PePRQ /* COUNT DOWN LEFT PAGE « @ 
ee ASD ee ke ee ek ee RRR RE ae 
i 4843 * SEARCH FOR THE REUSABLE MODULE IN AVAIL QUEUE 

| oe SeEUST 0000 Or Ik O00 anaes SSS See 
906022 4845 CLDPG EQU * sé 
vE 4846 NO PAGE ro USE TH POOT. ve 

@ : ON6022 600012 7413 56 000 4847 STX GETPGX9eSSAsIDePeSSA <@ 
«x 006023 OO0000l 1062 03 000 4848 —— CMPx KPXsePNPOPsDU *IS THIS GEPOp | ze 
te 0N6024 006033 6012 00 O10 4849 TNZ CLDP1 *NOT POP _ +e 

eo: 096025 004550 0 O10 4850 DX X29 SCRE 7 FSECRET PA OR POP a] 
ez 0N6026 006033 6002 00 O10 4851 TZE CLDP1 *NOe POP HAS ONE AT LEAST be 
a2 ON60? are ¢ O02 00 UT0 : R ae 

@ 006030 4853 OPENe DSP z® 
ze O60 E000 oxere 3 DX PGXeend 0A Ul gPeSSPA ey ea 
- 0N6032 000000 7102 11 000 4855 TRA »GETPGX *USE THIS PAGE FOR POP a 

®. 4856 % FSECRET HAS POINTER eSCTRE 2@ 
és 006033 4857 CLDP1L EQU * : ic 
ez 006033 4858 OPENe DSP c2 

®: 0N6034 600224 2223 00 O00 4859 LDX X2veSRMWK9ePeSSA — /* CHECK TRANSIENT a3 2@ 
oe  £ONGO= 0060 50 00 ~—COO B60 N DP HAVEe MU V-EXTT aia 
- 006036 005135 7012 00 O10 4861 TSX PUSHX+PUSH *PUSH "DOWN INTO DISK “FILE 

eo. 0HETST_DUB04S 7T1I0Z 00 UIU 4862. ——O—STRRAS~C~CSLD PZ ND PAGE CAN BE PUSHED DOWN 
i ON6040 600012 2213 54 000 4863 LDX GETPGXoeSSAsDI ePeSSA iA 
as 0 a7 210 C101 0101010 0 exeye WE “9. ; PaGP. acie rT eee PN ALL EMT RE 

@: 4865 *#X2 HAS PTR eSCTRL OF THE. PAGE 
2 096042 600224 4503 00 000 4867 STZ e SRMWK 9 oP eSSA 
z1 1 ON6063. . #868 CLDPRE EGU © 0 eg 

bag 0N6043 600012 2213 54 000 4869 LDX GETPGXeeSSAsDI sPeSSA . 

a ©. 2760 opezereiere a4 000 ro TO RE ? BAD: — a 
@: 006045 4871 CLDP2 EQU % ; & 
8 : * 8 
p 06046 006042 4736 07 000 4873 LDP PePRQ»9S5DePROQ»DL : 

@ : ON604 O000 03 00000 5 KX XO se SSAP ss PePRO ~ECKAGAIN- BEFORE WAI ——<» 
g g 

v 7 7 

@: - © 

@ 


é 


@ | 
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8s 
@ :: BASIC ROUTINES 
9S : 
eg 0N6050 006053 6002 00 O10 4875 TZE CLDP3 *NO»s MUST WAIT 
@ :: 096051 600012 2213 54 4876 LDX T v° wT ePe 
es ON6052 006016 7102 00 010 4877 TRA GPO 
jo es ee 7 3 
@.: ON6053 000001 2362 03 000 4879 LDQ 1eDU COUNT TIMES we CONSIDERED BORROW DISp00z79 
os ~ ON6054 OOBI7TL O562 00 O10 4880 ASQ SAVG V UPPER» ACTUA 0 DTSPOOZ9 Pee ee 
ev ON6055 006133 4746 07 O00 488) LDP4 SDeKL eDL D1sp00z9 i 
@.  .. 006656 400162 2343 00 000 4882 SZN oKLMMGo oP UNG MEMORY MANG D0079 
tn 006057 006124 6012 00 O10 4883 TNZ SSAVC DON'T TRY TO BORROW (MAYBE DEADLOCK) D1Sp0079 = 
ov ON6060 006166 é, OO O10 B84 Lda p WE W RY ) BORROW A PAGE FUR x 
eo: 096061 006010 4746 07 000 4885 LDP4 SDePT1LsDL 
i 006062 400000 2343 06 000 4886 SSAVA SZN O+QL oF ARCH FOR EXTRA PA VOT ASGN'D ~ 
ep 0N6063 006070 6002 00 010 4887: TZE SSAVB « GOT ONE 
@: 096064 006170 0362 00 610 4888 ADLQ SSAVAD | 7 4 
1" 006065 006167 1162 00 010 4889 CMPQ SSAVM = 
ov 0N6066 006062 6 4890 TN AVA 
@ ON6067 006124 7102 00 O10 4891 TRA SSAVC -@ 
ce  ON6070 400000 7503 06 000 4892 SSAVB STC2  OeQLeP4 FOUND A HOLEs RESERVE IT 
te 006071 4893 OPENe OSp 
@: ~ ON6O72 OOOO00 6222 02 000 4894 —EAX2 OsQU HOLD PAGE ADDRESS IN Xz ~ : —_ | 
ce 0N6073 000022 7362 00 O00 4895 QLS 18 PUT PTW OFFSET IN QU - 
wO””~”~C:”” VGH V-G|-~— COO 0 O00 BOG ORG aD AND W = YG a 
@ : 006075 4897 eCALLX eMDMM1 44 ASK TO BORROW A PAGE «@ 
ze Ves See ee 
te ON6075 600220 7403 00 000 STXO eSTMPX9 ePeSSA . 
© 0€ . 0060 ? 6 ICLIMB SD. SVXe 9® MDMMT #644 4 EAXO oc @ 
ez 0N6076 006004713400 000 VFD 18/ MONI 6444 909/7135 1/1 9l/041/0.6/Me i 
ze . .  OA6077 &OD00D00606 elele VED SsO7USB/ US Tol7eUs scJUe Te OVX 
@ . INHIB RESTORE z® 
92 06100 006 02 00 O10 4898 TRA SAV - REQU DENTED FOOC0N a 
gz 0N6101 4899 SHUTe DSP ez 
@ ON6102 200054 2343 00 000 4900 SZN eKLORMs oPek ANO R PAGE APPEARED x ® 
&z 006103 006115 6012 00 010 4901 TNZ SSAVE ¢ WE DONT NEED TADS: PAGE NOw s. 
zz ONG LOS eley O24 ole O1LQ 490 ‘Ye AV OUN WUR ACG eo 
@. ON6105 500000 4503 12 000 4903 ST7 Oe29PeSRM ZERO POINTER WIVHIN: PAGE ASGN#D »®@ 
02 ON6106 200054 00 000 4904 TX2 eKL SRMe ePeK PUT OUR BORROWED PA V AVE = oz 
6k 0N6107 000001 6212 12 000 4905 EAX1 ls2 CHAIN AND ADD TO COUNT a 
@: .} ©Of6130 200054 441 00 4906 SXL1 eKLSRMs oPeK eg &® 
ta 0M6111 300001 0113 56 000 4907 NOP DeSSAPsIDePePRQ aK 
os  O061T2 006356 00 O10 4908 XED KPTOR SO0000ZN es arg 
@: 0N6113 000006000000 000 4909 CAPTO6 VFD 18/6918/0 00000020 ~~ | 
no ON6114 O06T36 7102 00 OIl0 4910 TRA SSAVD NOW GO SID 
et 006115 4911 SSAVE NULL ct 
Di <QO6TI5 4912 OPEN® DSP i 
tL 006116 4913 eCALLX «MDMM1 55 RELEASE THE PAGE wE DONT NEED | x 
ol INH 9 
@ : 06116 600220 7403 00 000 STXO eo STMPX 9 oP eSSA 
Go OOSTIF.OOO~™OCO,”COCNN ECM” SD SVX 9 oe MDMMI HGS 45 EAXO 000 
L 0N6117 006005713400 000 VFD 18/6 MDMM1*6445 409/713. 1/191/041/0s6/Me 
@: ......}»}©GAETIO” 6“O0N000ENS 1. O00 VED 99709870 slaNel7e0s2/0e2/0-e Te SVX 
S 
@ : 
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8S 
RASTIC ROUTINES i 
9S 
= INHTB RESTORE . 
006121 4914 | SHUTe DSP 00000020... 4s 
ON6122 006136 7102 00 010 4915 TRA SSAVD ES 
O0G125° "4016 SSAVE NULL - --—--- - OO OOOO Or ae 
006123 4917 SHUT. DSP 00000020 ': 
006124 4918 SSAVc NULL 0s 
06124 006356 7172 00 O10 4919 XEn CAPTOR 00000020 
6125 OOO005000000 000 4920 CAPTOS VED LEZ eT BJO OOOO ZO 
| 006126 4921 SHUTe PST i 
ON6127 OCOOOOL 6222 OO le 4922 FAX XROES : \ PA WR RE QU ) ae 
006130 4923 eCALL =e MNISP 920 vy @ 
INHTB SAVE 30N vy 
0N6130 000003 6306 04 6133 EPPRO #+30$ 
006131 600012 4507 56 000. ®&STPO eSSAeIDePeSSA im) 
0N6132 771672 7102 04 24 TRA 200% is 
INHIB RESTONG gS ig 
096133 006047 4756 07 O00 4974 LDP P.eSRMsSDeSRMeDL /* RECOVER «@ 
ONG194. OUR Is Al2a OT 000 6095 °° LDS “PakissDekLsOe 0 
006135 4926 SHUTe DSP re 
7 006136 4927 SSAVN NULL <@ 
06136 600012 2213 54 000 4928 LOX GETPGXs eSSA+DIsPe SSA he 
00613 0 DOO 4929 RA “Le TTT) —TT Ss 
_ 4930 * ROUTINE TO INITIALIZE FOR BAGE BORROW "FOR SRM OVERFLOW .®@ 
096140 006165 2352 00 O10 4931 SSAVIT LDA AVI RE ROUTINE AT.LED me aa 
096141 004372 7552 00 010 4932 STA CLSSA41 
OnniGey OOSlee 2 ar, 00 O10" eRe gal ea ee 
096143 004372 6002 00 010 4934 TZF CLSSA+1 RETURN IF NO PAGES TO BORROW _ 
006144 200061 « 0 000 493 DA eKLSRP oe oPek a TO RM IN | ge 
096145 006166 0352 00 010 4936 ADLA SSAV PLUS INIT. areal PAGE OFFSET z® 
696146 000034 7712 00 000 4937 &4.ARL  0+18 GIVES PAGE TABLE WORD NUMBER 92 
0N6147 006166 2552 00 O10 4938 ORSA SSAV | OF FIRST PAGE TO BORROW i 
096150 006166 2352 00 010 4939 LDA “SSAV. MUST NOW RELEASE THE LAST HALF ~~ @ 
0N6151 000001 2362 03 000 4940 Loo 1sDU OF THE ASSIGNED PAGES a 
CNelee OO00ce flea 00° 000° 4onl Rin a ee 
096153 000000 6232 05 000 4942 FAX3 OsAL 2@ 
06154 006 4TA6 494 ~_LBP4 r ? ee 
006155 4944 SSAVTA eCALLX »MDMM195 | is 
: nye EAE GON ee aS “» 
06155 600220 7403 00 000 STXO o STMPX 9 sPeSSA | . 
oer: ‘s LIME D2 SVX eee MOM + TXU 
096156 006005713400 000 VED 18/6 MDMMA*64#5 409/713 41/191/041/0s 6/Me 
ON6157  OOC T Dp) [709 A , 7 TO 
INHTB RESTORE: 
ONS61460 OUOO0UL 0362 03 000 4945  ADLQO  IenU | nes @ 
096161 O06170 0232 00 O10 4946 ADLX3 SSAVAD ‘ 
Of A OU616 U UU ULO . 94 Mi Xx AVN catinae moe 
096163 006155 6022 00 010 4948 TNC SSAVIA ; | ~~ ® 
ON6164 O0 00 OLO ° RA SSA R RN TO NORMAT. PRO STN 
096165 600012 aes 00 000 4950 SSAVII LDA 0 SSA99PeSSA . | 
: ooo as a Rte CONTROL TABLE TO BORROW PAGES gD 
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8s 
BASIC ROUTINES ~® 
9S 
096166 000000 000000 000 4952 SSAV ZERO HK g KH ADDR OF FIRST PAGE + 6¢e FIRST PAGE # a 
096147 000000 000000 000 4953 SSAVM ZERO ¥¥ 40 MAXIMUM ADDRESS 7 
006170 002000 000001 000 4954 SSAVAD ZERO 102461 ADDER FOR NEXT PAGE e 
ON6171  O00000 000000 000 4955 SSAVG ZERO Oex® COUNT OF GETS ag 
0N6172 000000 000000 000 4956 SSAVR ZERO Onn COUNT OF RELEASES x 
GQO57 KKK KKK KH K KR KKK KH HK KK OR 
ae 4958 * GET PAGE FOR IN EMPTY PAGE QUEUE ie 
? 4959 * PRECAL DSP MUST BE SHUT TST 
49460 * CALL TSX GETPGX eGETPG2 
— GS O6L &SCOUdéRPCOST.)~~ UXPAGE @ GOTTEN PAGE CFO SCTRE) 
4962 * wv ® 
| 006173 4963 GETPG2 EQU % | es 
0N6173 600012 7413 56 O00 4964) STX GETPGX 9 eSSAsID ePeSSA 
006174 200054 2223 00 000 4965 LOX X2eeKLSRMs ePeKL *¥GET EMPTY QUFUE 
ON6175 006206 6002 00 O10 4966 TZF GP4 *NO EMPTY QUEUE GO TO AVAIL QUEUE e 
06176 500000 2203 12 000 4967  —  LDX XOgeXeePeSRM NEXT PAGE 
06177 200054 7403 00 000 4948 STX XO eeKLSRM9 Pe KL « @ 
0N6200 006204 6002 00 010 4949 T2e GP3..  *TF NO MORE PAGE IN QUEUE. 
0N6201 000000 6212 00 000 4970 EAX X10 | ie 
ON6202 500001 7413 10 000 4971 STX  XlelsXOePeSRM | EARTH BACK PTR AT NEXT PAGE ~« @ 
096203 006231 7102 00 O10 4972 TRA GP5 e 
006204 4973 GP3 EQU * | - 
ON6204 200054 4503 00 000 4974 STZ eKL SRMooPeKL | *CLEAR POINTER TO SHOW NO QYFUE «@® 
0N6205 006231 7102 00 010 4975 TRA GPS cma 
006206 4976 GP4 EQU 
096206 200055 2223 00 000 4977 ~~ EB XT GE SRM 9 Ly 9 Pe ¥GET-AVATC QUEUE READ = ~@ 
O0N6207 006220 6002 00 O10 4978 T7E GP6 *NOe GO SSSA QUEVE SEARCH 2 
——“6n6210 500000 2203 12 000 4979 LDX  XOseXeePeoRM | NEXT PAGE gg 
096211 200055 7403 00 000 4980 STX XO oeKLSRM+1 9 oP oKL 2® 
ON6212 006216 6002 00 O10 4981 TZE GP4e | 9z 
076213 000000 6212 00 000 4982 FAX X10 7 ee 
096214 500001 7413 10 000 4983 “STX. XlelsXO0ePeSRM TERMINATE BACK PTR CHAIN 
096215 006231 7102 00 010 4984 TRA GP5 ee 
= 16 4985 GP4.5 EQU % ke 
0N6216 200055 4503 00 000 4986 CLD4.5 STZ eKL SRM4+1eePeKL *SHOW NO QUEUF iz | 
ON6217 006231 7102 00 010 4987 TRA GP5 ? oe oe 
006220 4988 GP6 FOU * si 
ON6270 6 222 4989 LOX 2Daek #290Pe 0 a®@ 
06221 000002 6012 04 000 4990 TNZ 2eTC ys 
ee ee OO, a el 
| 006223 4992 GP6A EQU * | a | 
096223 500001 7203 12° 000 4993 CXL XOelsXZePe SRM ¥IS THIS PAGE IN USE $i 
096224 006230 6002 00 O10 4994 TZE GP6B *NOe AVAILABLE e 
On6225 00000 2223 12 000 499 LDX X209X29Pe ORD eTRY NEX a®@ 
096226 006223 6012 00 010 4996 TNZ GP6A ri 
—— = OR eer. — WONT. ~.20RS ° > a Te  e e a 
006230 $4998 GP6B FOU * . « @ 
076230 006 032 00 O10 4999 TSX LINK UNLINK FROM SSSA : 
: 006231 5000 GP5 EQU * L 
ON6241 Gel 000 50n1 EA XleeSDCWre RL XPA » @ 
Ss 
vr! 
: ® 
ra 
L 
3 
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8s 8g 
@ |. RASITC ROUTINES _ ~@ 
9S 9S 
a6 0N6232 040200 5202 01 000 5nn2 RPT eo SRASE 91 
@ .. 096233 500000 4503 ll 000 5003 STZ eXtePeSRM IN SSA CONTROL 
€S 006234 5ON4 OPENe DSP €s 
zs 096235 60006 54 000 00 DX GETPGX ee SDAPDI aPe SOA a ag 
@ .: 096236 000000 7102 11 000 50n6 TRA +GETPGX ~@ 
0s 5007 * os 
6y 5008 * ROUTINE TO UNLINK FROM SSSA QUEUE 
@ ., 5009 ®  PRECAL XPAGE = PAGE #eSCTRL TO REMOVE KK B®D 
ly 5010 * DSP MUST BE SHUT ie 
ov 5OlL * CALL TSX LINKX*UL SSSA on 
@., 5012 * POST LOST XO Xl _@ 
vy 5013 * v7 
et 006237 5014 ULSSSA FOU 
®. 606237 S00G00-Z203 12 OO S0TB LX KZ SRE PAGE IN QUEUE x) 
tv 096240 500001 2213 12 000 5016 LNX Xl elsX2ePeSRM *FRONT PAGE _ 
ov 096241 O00003 6002 04 O00 5017 TZE Setc 
@ « 0N6242 577777 7403 11 O00 5018 STX XOewleXlePeSRM *STORE NEXT PAGE PTR. 
= 096243 000002 7102 04 000 5019  #4'.TRA2eTt pre ge tee eas eg he eee pe ei 
i 006244 200056 7403 00 000 5020 STX XOeeKLSRM+299PeKL *QUEUE HEAD ADDRESS 
@: 096245 000000 6202 10 000 5071 FAX WXOesXO ©... 
bs ON6246 000003 6002 04 000 5072 TZF 35 TC Ge 
re ON6247 0000 ¢ 00 0? X aXOePeoRN = 
@: 096250 000002 7102 04 000 5074 TRA 2e1C 
ze —“OA6251 200056 4413 00 000 5095 SX XD RL SRM G29 PR 
tie 0N6252 000000 7102 13 000 5076 TRA sLINKX 
@.: 
62 62 
82 82 
@ 2 
92 92 
SZ S¢ 
@ —— 
€z €z 
ee ee 
@ 
0¢ o¢ 
6h t 
@: 
Lb 
91 en gs me ge Oe i ee ay Se eye ne ee 
@: 
vl 
€L 
@: 
ME 
OL aa a a a Ia a Aa a EA a a AA aaa A Ea 
@ : 
8 
Z ; 
@: et ee a eae eRe ee Fe a ey ee ee 
G ; ; d 
: a Ee a a a ee eS 
@: 
Z 
I 
a a 
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1248T 02 12"27"79 09,322 — H6600J7.057 GCOS IV 4VX DISPATCHER 791219DISP PAGE 142 = 
RASITC ROUTINES | s@ 
9S 
5078 * Sg 
5079 * vs 
5030 * ROUTINE TO LINK A PAGE INTO eSSPRQ QUEUE e 
5031 % CALLING TSX LINKXs 
5032 * PRECAL X2 = ADDRESS OF THE PAGE + «SCTRI 
rn), 1 \ ar ae fo) 5 X2— PAGE HEAD ADDRESS 0 
5034 * LOST = XOe Xl 
006253 5035 LINK EQU % 
0N6253 600172 1023 00 000 5036 CMPX X2eeSSPRO0ePeSSA *CHECK LINK SAME PAGE o 
096254 006265 6002 00 10 5037 ZF LINKL ’ on | a: 
096255 000001 6212 12 O00 5038 FAX XlLeoleX2 *BACK PTR ADDRESS op @ 
096256 600172 2203 00 000 5039 LOX X00eSSPRGeePeSSA LINK TO eSSPRO-  ©™©™©@ ae : % 
096257 500000 7403 12 000 5040\ STX X009X29PeSRM | a 
0N6260 000003 6002 04 000 5041 TZE 391C s 
096261 500001 7413 10 000 5042 STX XL eleXO0sPeSRM 
“ON6262 =aNgo00s 1102 04 000, 50032 = Tan nie SS 
0N6263 600172 4413 00 000 5044 SXL X1 oeSSPRQsePeSSA _@ 
096264 600172 7423 00 000 5045 —— STK“ X2ivig SSPROY 9P SSR ee i. 
006265 5046 LINKI EFQU # 
0N6265 000001 6352 00 000 5047 EAA 1 ———* 
096266 600102 0553 00 O00 5048 ASA 2S! OAD s oP eSSA *COUNT UP USING SSA PAGE NOe ie 
ON6267 OO0000 Bele 00 000 5049 FAX X1e0 RSE TRAN N : és 
06270 600224 7413 00 000 5050 STX Xl oa SRMWK 9 oP eSSA | = ) 
096271 500001 4503 12 000 5051 £#8T2  } }°}+&‘LeX2ePeSRM ©. © ©) WWW PYCHOSIO 
ON6272 500001 4463 12 000 5052 SXL KPX9l9X2ePeSRM *SHOW WE HAVE THIS PAGE = 
0N6273  T777TT2 6222 12 000 5053 &;;FAX X2eeeSCTRLoX2  #£§‘SPOINT TO PAGF HEAD © © ©. oe & 
096274 000000 7102 13 000 5054 — TRA ol TNKX n 
5055 * ez 
5056 * THIS ROUTINE SET IN SSA LOADING STATUS AND CHECK LINKS 1/0 | az® 
5057 * ON THE SSA PAGE . ee ees 
| 5058 * CALL TSX SETLDX*SETLD ez 
——— 5059 * + POST PeSRMe OTHERS ARE LOST 2 T= _@ 
5060 * €z 
OGL. - BOB SETLD FOU -- ae a ee ee ee ee ee 
7 006275 5062 - SHUTe DSP 2 
— OBATE~~«~SGS SETLOL FQU TT 
006276 600017 2353 00 O00 50644 LDA a STATE 9 ePeSSA /* SET «STATE WORD TO SHOW 
ON6277 O20000 2752 03 000 5045  &;|.ORA  eTLOADSDU SSA LOADING STATUS 
096300 600017 7553 00 000 5046 STA eSTATE 9 oP eSSA 
. 06 ETLD QU % ry 
0N6301 000001 3152 07 COO 5048 CANA e TLNKS 9 DL /* CHECK 1/0 ON SSA PAGE | «@ 
0N6302 006305 6012 00 O10 5069  .'N2  SETLD3 YES THERE TS0 GO WALT 
006303 5070 OPENe DSP 
096304 000000 7102 13 000 5071 #4|'RA  eSETLDX ©. UO See eat ee ee 
006305 5072 SETLD3 EQU # is 
a 006305 5073 OPENe BSP ol 
0N6306 600012 7433 56 000 5074 STX SETLDXs5SAs IDePeSSA | 7 - © 
ae 16 075 eCALL MD QUTSH WAIT 0 a ey 
INHIB SAVE 9ON 
ON6307 000003 6306 04 6312 FPPR HS 8 
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BASIC ROUTINES 
096310 600012 4507 56 000 STPO 0 SSAsITDePeSSA 
006311 771473 7102 04 4 TRA 49S 
INHIB RESTORE 
ON6312 600012 22: 4 000 5076 DX ETLDX2 eo SDAeD1 oP eS Sh 
096313 006047 4756 07 000 5077 LDP P.SRM*SDeSRMeDL 
096314 006133 4726 O07 000 5078 “LBP = PekLeSDeKEoDL 
006315 5079 SHUT e psp : 
096316 600017 2353 00 000 5080 LDA eSTATEs oP eS5A | 7® CHECK AGAIN EE 
006317 006301 7102 00 010 5081 — TRA SETLD2 
5082 * 
5083 % RESET SSA LOADING STATUS 
BORGIR OS SEL RE ne a gee Se RR Bee 
5085 * Post LOST = XO XL A 7 
5086 * : 1 @ 
006320 5087 RETLND EQU * ) 
" 006 088 SHUT e p - 
06371 020000 2352 03 O00 5089 LDA eT! OAD sDU | «@ 
ON6322  GOOOl? 6553 00 600 5090 ERSA TATE se SON FR RESET 
| 006323 5091 OPEN. DSP | re 
ONesoa 000000 7102.'3 Woe, Sne2 °° TRA —~s5E7E ON ee ee es 
5093 * 00000020 “ 
QOS * UR ERE N Vv J ry he? LAL be id 40 -{C UND ULULULULOLE L} ; 
5095 * CALLING SEQUENCE eee TSX OVHXsOVHW ea W/ SSA SET 00000020 
=, 096 * 
006325 5097 OVHW NULL 00000020 
0N6325 006063 4706 07 000 5098 LHP 2RMS?SDeRMO? 
096326 000040 4133 00 000 5099 RSCR SCUCLK9 9PeRMS 00000020 
sary sere 8 000 meye @ ePWRKR 6 oh e WUE EY 
096330 000000 7192 12 000 5101 TRA sOVHX RETURN 00000020 
102 * » 298 
5103 * SET SLAVE PROCESS PROCESSOR TIME TO .SPTIM (16 MS) 00000020 s 
104 * CR N QUE N aee KR OVA SOV ae SA® JOUQU00 Z0 
5105 «* | 00000020 
026331 700072 2363 17 O00 5107 Lon eCRCCK sPNePeCR 00000020 
096332 6002T« 63 DO 000 108 SBLA 2 SPWRK oe aPe SOA UNV EO 
06333 000002 6052 04 000 5109 TPL 2eIC 00000020 
4 | i 
(0N6335 000004 7722 00 000 5111 BRE 4 yoog0020 . 
16356 6UUz 53 00000 AST on re); IGHGOG20 
096337 Q00000 7102 12 000 5113 TRA »OVHX RETURN 00000020 


@ 09 ao ee ge ee ae ee gS one, 
66 1248T 02 12827-79 09,322 H6600J7.057 GCOS IV. 4VX PISPATCHER 791219DI1SP | PAGE 144 a 
8g 8g 
Oc CAPTURE SSA OVERLAY USAGE PATTERNS im) 
9S : 9S 
ss 5116 ENTRY POINT 25 00000020 ie 
, ——— : 5117 CALLED FROM POQ@3 FOR DATA FOR CONSOLE MESSAGE + O0U0U0Z0. TT". 
és 006340 5118 CAPT NULL P2 IS DESCRIPTOR FOR DATA 00000020 i 
a ~ 006340 006166 2352 00 O10 5119 DA a } 
@.: 006341 000034 7712 00 000 5120 ARL 10+18 00000020 
0s 06342 200000 7553 00 000 5121 STA OveeP2 NUMBER OFF PAGES IN SRM vogODOD0UZ0 
ey 006343 006460 2352 00 010 51292 LDA CAPTCT+1 00000020 
@» 096344 006462 0352 00 O10 5]ja3 ANLA CAPTCT+3 
ly 096345 200001 7553 00 000 5124 STA 19eP2 NUMBER OF FINnS 00000020 
wv 006346 00646 OO ~«~OT0 12 LDA APTCT+ pOUNNNZN 
@.; 006347 006467 0352 00 010 5126 ADLA CAPTCT+8 00000020 
by 096350 200002 7553 00 000 5127 °° #£4STA ~2eePe NUMBER OF LOADS ©OOQOO00Z0 0, 
096351 006514 2352 00 010 5128) LDA CAPTNE 00000020 
@ « 006352 129 STA 390 U LOADS 
. 006353 5130 eEXIT | 00000020 z 
ov NATE SAVE GON 
B @: 096353 000002 6306 04 6355 EPPRO #+20$ «@ 
| ge 096364 700006 7103 00 O00 7 FRA we CREXT 9 PCR 
| is 096355 000000 000000 000 , ZERO oRGs | t 
Ss @: ES ee ENT OCORESTORE6|}€6-™,UOUOU™€~«7T«SC~=<=~S;‘i 
| ce 006356 5131 CAPTORENULL | 00000020 se 
<TTT | 000024 5132 CAPNPG SET 20 
@: 006356 006431 5542 17 010 5133 STc1 CAPLOC97 00000020 
z|0|)|”~™”*~*~*~*~<‘—s:::CSO NH HT 00GH3GHO 7102 OO O10 5136 — TRA CAPTUR ©... OOOO ZOOS 
te 006360 5135 CAPTUR NULL | 00000020 Le 
@ .: 006360 006 2 10 5136 AQ CAP 97% 3 
6z 096361 006431 2362 17 O10 5437 LDQ CAPLOC +7 ~ 00000020 Bs 
EE OO SOOT ESE O E00 BSB rrr 
@ 006363 006457 0542 01 O10 5139 AOS CAPTCT sAU 00000020 
oz 096364 O00001 0362 03 000 5140 ~  ADLA 1.0U VO00002Z0 ge 
sz 006365 006431 7562 17 010 5141 STO CAPLOC97 00000020 
s @ 006366 006456 0542 00 O10 5142 AoS CAPCN 
| &z 006367 777777 3752 m8 000 5143 ANA “19DU ppoe002? &z 
zz rC 1 : 
s @. 006371 006400 6012 00 010 5145 T™NZ CAPXAD 00000020 
<————gne3 77000000 6352-12000 S146 E08 rt 00020" 
| 61 096373 000034 7712 00 O00 5147 ARL 28 00000020 
@: 096374 000024 L152 07 000 5148 CMPA CAPNPG DL 
ts 096375 006427 6032 00 010 5149 TRC CAPRET 00000020 
ol ON6376 U0b4TO (yams OTU 150 KPLOD of eisseisisisras 
@: 006377 006427 7102 00 O10 5151 TRA CAPRET — 90000020 
mo BADD BBS CAPKAD NULC QQ ZD 
et 006400 000004 1152 03 000 5153 CMPA 4sDU 00000020 
@: ©. OR6401 006427 6012 00 O10 5154  —TNZ.———CCAPRET TN Q0000020— 
r 0N64N2 000000 6352 12 000 5155 EAA 0.2 —— 00000020 7 
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096641 777700 6212 00 000 5430 FAX1 64 NOe 7®@ 
ON6642 OOO000 0412 10 000 5431 ASXI 080 SHURINK STS SUL E89 
096643 000002 2212 03 O00 5432 LDX1 2eDU 
096644 006756 7412 17 O10 5433 STX1 TOPNIDs7 SET OPEN ID (ACL FROM SLAVE DOMAIN Oh 

5434 * val 
43 ¥ BETURN 6 i * TTRY BO STN RT} pieie _. 7 
5436 * 
; | 006645 5437 TOPN?20 NULL 
0N6645 006650 7736 37 O10 5438 LOSS TMPSSP 97% RELOAD la FOR NEW FLAME 
006646 5439 OCLIMB URN ALTER ® NTRY BUILDING PROC. 
096646 000000713400 000 VFD er rere tye 1701800 
ONbB64 QUQQVQ007 0000 ) Ve «9/098 /U 8 V9 0) 6x) q e 
| 5440 * 
006650 006654 Q00000 O1LO 44] MPSSP -RO MP 0) AP Rn way, AOCA DTR TR PRO RO 
096651 006656 000000 010 5442 ZFRO_ TMPSS1 TEMP SSR sade ARFA PTR FOR PROCESSOR 1 
006652 006660 000000 010 443 FRO MP RS ARFA PTR FOR PROCESSOR 
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006662 000000 
006654 
€g 096656 
zs 006660 
006662 


010 ZERO 
TMPSSOEBSS 
TMPSSILEBSS 
TMPSS2EBS5 


TMPSS3FBSS 


5447 
5448 


TMPSS3 
2 


2 
2 
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TEMP SSR SAVE 
TEMP SSR SAVE 
TEMP SSR SAVE 


? io LA \/ 


TEMP SSR SAVE 


AREA PTR FOR PROCESSOR 3 ss 
AREA FOR PROCESSOR vs 
AREA FOR PROCESSOR 1 | es 


ATS K » eje Ps 
e e U 


AREA FOR PROCESSOR 3 
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0N6664 
006665 
006666 
006667 
096670 


ON667)1 
ON6672 
0N6673 
ON6674 


006675 


- OU6G OO 


09.322 


006664 
D064 
777777 6202 00 
006756 740 
006671 2202 37 
O0000] 710 OQ 


ojerorexere 
006710 000000 
006720 000000 
006730 000000 


000003710204 
096700 
006710 
006720 
006730 
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SYSTEM TRACE ROUTINE 
5450 He HEHE IE IE IE FE IE IE IE IE IE IE FE IE IEEE IE TE IE IE IE KE TEE TOTEM TEE FE TEE HEH IE IEE EHH 
5451 % ; * 
5452 % eTROPN GREG ENTRY (SYSTEM DOMAIN ONLY) % 
5453 % | aes 
BAS HHH KIKI HH HHH KKH HHH IKK HHH KER EKER HK IN 
5455 % ae 
5456 * ENTER HERE FROM SYSTEM DOMAIN MODULE VIA eCRTRVs1l2 
5457 * 
5458 TOPNG NULL 
459 REG REGSPs \VE A rR R 
5460 EAXO =] 
461 STx0 OPNIDs OPEN ID R ROM SY CIMACT N 
5462 \ LDXO TREGSP 57% RE=LOAD x0 
463 RA aaPO RETURN TO CA Re ITRY BUILDING PRO 
5464 % 

6 REGSP RO R U R RSAVE AREA PTR FOR PROC ORO 
5466 ZERO TREGS] REGISTER SAVE AREA PTR FOR PROCESSOR 1 
5467 ZERO TREG R RSA AREA PTR FOR PRO OR 
5468 ZERO TREGS3 REGISTER SAVE AREA PTR FOR PROCESSOR 3 
5469 * 

5470 TREGSOSBSS 8 REG RSAVE AR TR PRO OU 
5471 TREGS18BSS 8 REGISTER SAVE AREA FOR PROCESSOR 1 
5472 TRFGS28BSS 8 REGI R SAVE ARFA FOR PRO OR 

5473 TREGS38BSS 8 REGISTER SAVE ARFA FOR PROCESSOR 3 
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8S 
Oc. SYSTEM TRACE ROUTINE 
9S 
ss STS KHAKI HHI IE IH EKER REI I HHI HE EHH HII HH EET TEI ITE EET THT THE 
@:: 415 SAMNSHARAN RAN NNHA AHA NEA AU RER EAA NARNANARNA SHANA NORER NHANES RSNA RA RENN NER 
6s 5477 x TRACE PUT ROUTINE * . ; 
zs oe TS en ne Sa ye en eS a GG ee, ee age Ee ee ee eg eee Ree Pet oy 
®@ 1S 5479 FHI III III IE IH HE IIH HF HIE HHH HHH HHH HE HHI HHH HH HK HIKE HHH EK KHER EERE KEKE 
os 5480 * ge ee ee 
ev 5481 * TRACE PUT MACRO 
@ 5482 % 
uv 5483 % eTRPUT ASIS PUT ENTRY ASIS — ie 
ov 5484 * PNO 10 WHY WITH N PUe AND PROCESSZ ae 
@: 5485 * TOD PUT ENTRY WITH SETTING TIME-OF@DAY 1 @ 
vr 5486 * TODPNOD PUT ENTRY WITH SETTING TOD, CPU# AND PROF ee 
ey 5487 * : ey 
@. 5488 ® MACRO EXPANSION FOR eTRPUT MACRO @ 
ly 5489 * wy 
ov 490 * No ( D ie 
Dc  =—=5491 * LDP6 DPePTEsePeSSL ie 
ge 5492 * GCLIMB  «DR6,0sEAX0 ge 
Le 5493 * ie 
. an 5494 * PNO (SYSTEM DOMAIN) ew ee ee a ee 
ge 7 5495 * EAXO 0 . Ge 
ve So ee eo “EXD.”  “mCRIRV@OeePeen oS ee ee ee eee ey 
®: 5497 * «@ 
ze —:—“ HOB KR”—CUTODCUCSLAVE ROMAIN) 0 SS eee ee 
le 5499 * LDP6 DPePTEesPeSSL ie 
@.: Pa RO: ORCL AME ePROOLSEAAO «55 ee 
6z 5501 * 62 
92 ee 5502 &))©6hTOD) USVI EM DOMAIN gg 
@ .: 5503 # EAXO l z@ 
oz Se B50G & EXD wCRIRVGE 5 eRe TT gig 
GZ 5505 * Gz 
a st 5506 % TODPNO (SLAVE DOMAIN) gg 
€z S507 * LDP6 DPePTEssPeSSL - 
2z 50 L e a3 Se re ey 
@. 5509 * 2@ 
oz | "5510 % ~ »=©=©9TODPNO (SYSTEM DOMATN eee eee gg 
6} 5511 * EAXO 2 6h 
eo. °° ° °° °° °° ° °°... 512 * fp) ° +8 99Pe a® 
Lh 5513 * . ra) 
an 7 BTS RUSS 6 CCSLAVE DOMAIN) 
@: | 5515 * LDP6 DPePTEssPeSSL a @ 
vl I ° a29 Ce rere ae 
a 5517 %* €L 
@: — «SBR OHRCUMASTS UCSYSTEM DOMAIN] 000 se  & 
r 5519 * EAXO 3 uy 
ol 2 * >) 6 +Se9orhe ; st 
@: : 5521 * ® 
8 5522 * = 
Z 
@: ~ 
SG 
v 
@ : 
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pias ROS S YS TEM TRACE ROUTINE 
B50 4 III IIE IIIT II 
5525 * * 
5526 * REGISTER CONVENTION * 
alex . 

B52 BR III IOI III EI ITT OE 
5529 
5530 
5531 * PecR s SDeCR 
5532 * P.SSAs SDeSSA 
9533 % PeSSLe 3DeSSL (SUB OY LINKAG @)5 AVE DOMAIN ONLY) 
5534 * PO = RETURN INSTRUCTION(TRA RET=#ADDR) pOINTER 
5535 x X7_ = PROCESSOR NUMB 
5B536\% X6 zs PROCESS NUMBER 
5537 * . 
5538 * THE FOLLOWING REGISTERS WILL BE CHANGED BY THE PUT ROUTINE 
5539 * 
5540 * XO 
5541 * X2 

i a pe ee Stee as 5542 * X3 
5543 * X4 
5544 % AR 


Leer SeennnhesnetensndteRee CSS SSSR A A eesnanhesheeenrsettnne he SSS ss shh SSS SSS SSS rh SS Rs sss PSF SSS SP Ssh SP sessing tse astetnspeabgeem, 


5545 * QR 
5546 * 
5547 * 


5548 * THE X1 SHOULD NOT BE CHANGED FOR MME TRACE PROCEDURE IN eMFALT 


5549 * 
5550 * 
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SYSTEM TRACE ROUTINE is 


B55 D HHH KK HK HIKE IH KE HIKE KEKE HHH HIKE KKH KH HHH HHH dé 
5553 * * vs 
5554 % eTRPUT ENTRy FROM SYSTEM DOMAIN es 
3555 — & zs 
BB HHI HHI KIKI HH HH HHH HK HHH HK HHH KEE HHH HK HEHE KH HH HHH ~@ 
5557 * os 
5558 * ENTER HERE FROM SYSTEM DOMAIN MODULE vIA eCRTRV+8 ag 
5559 % ow 
096740 5560 TPUTSY NULL ly 
006740 006130 4/776 Q 000 561 DP PeCK goveCR ol RECOVER Pel ers 
0N6741 006742 7102 10 O10 5562 TRA TPUT 50 ov @ 
. 006742 5563 TPUT NULL : vw 
ON6742 006763 7102 00 O10 5564 TRA TPPNO XO = Os PNO OPTION 
0N6743 006775 7102 00 O10 5565 TRA TPTOD . XO = Ty TOD OPTION 
ON6744 007004 7102 00 O10 5566 TRA TODPNO = = ah TODPNO OpTION 
ON674 0070 042 00 Of0 567 TPAST REPU KO = 4 OPTIUONe PU RP TRY : - 
ON6746 006756 2202 17 O10 5568 LDxXO TOPNID,7 TEST OPEN ID FOR ExIT 
0N6747 000000 6003 00 000 5569 T7E Oe eP0 IF ID TS "NONE". RETURN TO CALLER we 
ON6750 006756 4502 17 O10 5570 STZ TOPNIDe?7 CLEARE OPEN Ip CELL 
006751 aperer 6042 00 010 5577 TMI TPUTLIO IF ID TS "GREG". RELOAD GENERAL REGIS 
006752 5572 OCLIMB IF ID IS "ALL—s RETURN TO NEXT OF ICLIMB . Se 
ONH752 OOO0UG 40C 000 VFR 8/0909 ? +l 70sl70s6/0 = ras 
OnN6753 000000010000 000 _ MED 1/039/098/091/Nel /0» 2/092/14912/0 
OST Oe. OTS ~LPUe TO. Mul — ——  p--). yy) Pee They i meee Se ee pe a eee pe gee Te amie 
ON6754 006671 0732 37 O10 5574 LRFG TREGSP 57% RELOAD ALL GENERAL REGISTERS 
0N6755 0000 0 575 R a9 - 
5576 % ‘ 62 
ONBTEH = QOUDOOOOVODO DOO 7 OPNTD DEC oryeryerye RP OPEN TD BY PRO SUR as 
0nN6757 O0000000000N 000 | 2n® 
O0N6760 000000000000 000 9z 
ON6761 000000000000 000 4 
Se ee 5578 = 0 NONE r®@ 
5579 = = GREG . ee 
QQ AL ROM SRV ag 


t 
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gs 
SYSTEM TRACE ROUTINE <® 
9S 
BBR III ITI ITT II IE = 
5593 x 7 i @ 
55a4 * eTRPUT ENTRY FROM SLAVE nomAIN * es 
S585 ee | ol ® ; 
| S56 KHIR HK IH EHR IH HI HIER IK IER II HTH IN ; 
ne Sg ee ee I et ee Fe ey 
5588 * ENTRE HERE FROM SLAVE DOMAIN MODULE vIA .TRPUT MACRO DIRECTLy 
5589 
006762 5590 TPUTSL NULL ly 
0ON6762 006 02 10 Q10 591 RA TPUT,0 X00 HAS PUT UPTIUN CUD a 
5592 xO = O pNo oy @ 
YF 9 SS © | > i 
| 559% XO = 2 TODPNO OPTION ey 
5595 XO = S$ _@ 
5596 P7 = SDeCR ; 
De SN tan ES ce a ee ee ne ie ce San 2 0 ee ee Te Nae 


an etna netttnniinnemtietensemeetiernmnnannnees rt nN rarer tess rier ttre ennai ttn tnnmtnynsnaannennsinmunasnanetneitnntaatAntnnAR I ARAN, 


woe AN OM TFT HM YH KR DO OH 


eo se 
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SYSTEM TRACE ROUTINE 


5599 * 
rr cE SOR AND PROCESS NUMBER IN ENTRY“ 
5601 * és 
006763 5602 TPPNO NULL zg 
096763 700312 2203 17 000 5603 Lpxo eCRTEPs7sPeCR GET TRACE ENTRy LOCATION ®@ 
006764 000000 624 6 000 604 EFAXS 096 VUMBER _ 
006765 177777 3642 03 O00 5605 ANX4 =O177777sDU ISOLATE PROCESS NUMBER ey 
006766 006771 2642 17 O10 5606 ORX4  TCPUNDe? OR PROCESSOR NUMBER ©)” UU =—=@ 
0N6767 700001 4443 10 000 5607 SXL4 LsO0sPeCR SET PROCESSOR AND PROCESS # IN ENTRY#1 
096770 006745 7102 00 O10 5608  — TRA TPASTS GO TO PUT ENTRY ss 
| 5609 * ov @ 
ON6771 OO0000d0000N 000 5610 TCPUNO OCT Oe 200000000000 540000000000. 600000000000 ee 
006772 200000000000 000 | 
0N6773 400000000000 000 
006774 600000000000 000 . 
B61l * 
5612 * SET TIME*OF=DAY IN ENTRY | 
5613 * gE 
006775 5614 TPTOD NULL , 
006775 006063 4766 07 O00 5675 LDP6  SD.RMSeDL GET REAL MEMORY DESCRIPTOR © 
06776 600040 4133 00 000 5616 RSCR 3259P6 READ SCU. CLOCK “ 
ON6777 OO0004 7732 00 O00 5617 &35CRE 4 7 SART & BIT FOR 6 
0N7000 700105 0363 00 000 5618 ADLO eCRDAT#+199PeCR_ ADD ADJUST VALUE «®@ 
07001 00312 2203 17 000 5419 LOXO eCRTEPs7ePeCR LOCATION ze 
0N7002 700001 7563 10 000 54670 STO 1eOsPeCR SET TOD 
007003 006745 7102 00 O10 5é6?l TRA TPASIS GO TO PUT ENTRY “® 
5A?2 6z 
673 * sFT PRO SOR»s PRO VOMBER AND TO VY ENTRY | ez 
5694 * | z® 
ee a = OOO ~~ SEIS, TODPNO-NULE °F eee ie Sea Sab oge = gg 
ON7004 700312 2203 17 O00 54626 LDXO sceneee7’ PeCR GET TRACE ENTRY LOCATION 
ON7005 000000 6242 16 000 5677 EAX4 096 GET PROCESS NUMBER 
ON7006 177777 3642 03 000 54628 ANX4 20177777 sDU ISOLATE PROCESS NUMBER ez 
( () O06 oes 6279 (VR x PUND 9 Rg PRO 0 TUMBER © ve eli 
077010 700000 7443 10 000 5630 STX4 Os0ePeCR SET PROCESSOR AND PROCESS # IN ENTRY+0 ~~ 
ON7011 O067T> TlOc 00 010, 54a1 °° TRA TPYOD° ~~ "GO TO SET TOD OS 


nn A A RN A NR A ren nner 
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§S Y STEM TRACE ROUTINE 
TERT TTS TES TT TT TCL LLULLLLOULELULAOLELOLLLL ULL ULE LULLED LE LL LLL LES oo 
5634 * % 
5635 * PUT TRACE ENTRY INTO TRACE TABLE (SDeTTO OR SDeTTI) * 
5636 * 
B37 III II IER III ITI THAR III IIIA LAID AI II IIIA III ISI LIISA IIS IIIA IAS 
5638 * 
5639 * 
5640 * CALLING SEQUENCE 
5641 % TSX1 TREPUT 
5642 
5643 * STRUCTURE OF TRACE TABLE 
Ba EO) UCT ALLY) RUT A 
5646 #42 OCT 0 RESERVED ~~ 
5647 #43 IOTP DCw LIST 
5648 +4 TOTP 
5649 %4+5 TOTP 
5650 *+*6 IOTD 
5651 *+47 ZFRO 1sSIZE BLOCK CONTROL NUMBER 
5652 #*#+8 TRACE ENTRY 


mecca ge Sn erreurs trnesrsfnntvsssheneentntnnnshyenusensshtnatteshhsneshhse er Pero Pr oun Artsy nether nthe Sst Ssh Sra rrr errr ness nhnsshsenssthndten 


rat rs Sn Srunsssesl=rnS wtih hss she esrunrerer-uP en n-type A A ST nf nr shee 
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SYSTEM TRACE ROUTINE 
9¢ 
007012 5654 TREPUT NULL 
ON7012 SOTO5T 7022 00016 5655 TXISO]l T5X2 TSIECT SELECT TRACE ENTRY FOR SARTIAL TRACE _ 
54656 NOP WHEN FULI TRACE es 
SAVOTS —TOOSIO O43 00000 BeRT OOS ERT ET 3 3 PCR COUNT TOTAL TRACE ENTRY esses 
007014 565g TX1S02 NULL NEXT 2 ARE NOP'*S WHEN SINGLE#=PROC 00000020 
On70y 700342 0343 00 000 5659 TGSHUT LDAC eCRTTPeePeCR © ©)? MPROSGIO.!UO~C~COCCCCCCOCTTTTCS™S 
oorols 007053 6002 00 010 56640 T2F TGWAIT MPRC5680 ee 
0N7016 700344 4767 00 000 5661 LOP6 eCRTTP+299PeCR MPRC5690 ev 
097017 700312 2203 17 000 56A2 TPUTSO LDXO eCRTEPe7sPeCR GET TRACE ENTRY 1 OCATION is 
097020 600000 2223 00 000 564463 #&5LDX2 OeePQ GET PUT COCATYON SS gg 
0N7021 700000 2373 10 O00 5644 LDAQ OsNsPeCR PuT ENTRY INTO TRACE TABLE SEGMENT or 
ON7022 600000 7573 12 000 5665 STAG: “<OWZ8R Or ey 
097023 700002 2373 10 000 56646 LDAQ 2909PeCR 
ON7024 SOOCOS PETES O00 EER» 
097025 600000 0113 53 000 5668 XeTTT NOP 2AD sP6 UPDATE TALLY od 
097026 0070 6072 00 O10 5669 TXTS04 TIF "GOPEN : OT UPEN GA = tee 
5670 TTF TPUTEX te SINGLE PROCESSOR 
5671 * 
5672 * EXCHANG TRACE TABLE 
5473 * } = 
0N7027 600001 2353 00 000 54674 LDA leeP6 REFRESH TALLY 
097030 600 ) 675 ry OeeP6 
097031 700344 2373 00 O00 5676 LDAQ eCRTTP+#29ePeCR EXCHANGE CURRFNT TRACE TABLE POINTER 
0N7032 +O 44 677 CLLR 6 | ee 
0N7033 700344 7573 00 000 5678 X.saTPUT STAN eCRTTP+299PeCR */ IF TRACE DUMP OPTIONs EXCHANGE 
5679 CRT TP+4 ALSO AND ENABLE DUMPER = ©)™). 
0N7034 700346 2373 00 000 56R0 LDAQ eCRTTP+499PeCR 
0N7035 000044 681 CR 6 
0N7036 700346 7573 00 O00 56282 STAQ eCRTTP+499PeCR 
007037 5683 TGOPFN NULL | gg 
007037 5684 TX1S03 NULL NEXT IS NOP WHEN SINGLE#PROC 00000020 
0N7037 700342 5543 00 000 5485 STCL eCRTTPeePeCR OPEN TRACE GATE 
0N7040 O00070 2342 00 010 5686 TPUTFX SZN TRAPTR TEST FOR TRAP IN USE 00000070 
OOT041  «=OOTO H002 00° UI ART RAPOR eNO TRAP ENABCFD JUUGNY (TU 
0N7042 000070 4766 00 O10 5«6aRB -LDP6 TRAPTR © TRAPPING #= _GET .OCAT TON (INSURTNG THAT 00000070 
0N7043 000074 66 00 O10 56a9 ARG RAPC ADDR “G al AND 00000070 
ON7044 000074 4766 00 O10 5690 LDP6 TRAPCT DESCRIPTOR IS TYPE 0) OF CELL TO BE 00000070 
0N704 6 691 LDA 99 9 
097046 000072 3752 00 O10 5692 ANA TRAPMK DESIRED PATTERN® AND COMPARE IT WITH 00000070 
) ) OQOU ore OTO AX MDD RAPY SAD VALU Ty _RoOV 000000 TO 
097050 000073 7162 00 O10 5694 TRAPEX XEC TRAPER EXECUTE THE PROPER KIND OF TRANSFER DISP8A2F 
0 oL elers 166 0 O00 B9 TRAPOK DG De Red RET OAD Py 1 NO70O} R ) SOeCO00CGTEO 
5696 * TRA MONTR IF MONITOR ACTIVE 00000020 
On7062 O00000 T7102 14 000 5697 TRA 094 EXIT 
. 5698 * . iH 
5699 *- GATE WATT ROUT TNE OL 
5700 * 
—— 0070 5701 TGWATT NULL a. 
097053 000000 7742 00 000 5702 GTB WAIT A FEW MICROSECONDS MPRC5710 
007054  OOT014 7102 00 010 5703 TRA TGSHUT TT Oo MPRC5720 -) 
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6s 1248T 02 12827=79 094322 H6600470057 GCOS IV 4VX DISPATCHER 791219DISp PAGE 164 me 
8s as 
9S 9S 
Di a BR << Q0000070 bg 
es 5706 x WHEN TRAP 1S IN USE AND DESIRED CONDITION HAS BEEN FOUND» 00000070 ee 
a 5707 * CONTROL COMES HERE TO TURN 0 RAP CONTROL AND "ZOP YUD00NTO | 
@ . 5708 * 00000070 
os — * 907055 5709 GOTCHA NULL ©... OT OOUTINTOO™~™COCOCC 
ev 07055 000070 0342 00 010 5710 LNAC TRAPTR RESET TRAP FLAG WITH ZERO® BUT SAVE 00000070 5s 
e. 097056 000000 000000 000 5711 &4xLZERO Ovo 4% TRAP HAS SPRUNG *** | OOD0UD07T0-- —,, 
Ly Ly 
ov oy 
i sv Sv & 
vy ; oy 
v \ ev 
@ ey 2 & 
ov ‘ ov 
& Se 6E . 
8E ee 
ia Le 
. & 3e 9¢ @ 
SE Se 
ve ve 
@ ey ees ee @ 
ee ze 
le Ie 
] oe 7 of & 
62 62 
ETA az 
@ ie a Lz e 
92 92 
Se Se 
@ ve ve @ 
x4 ee 
| ee ae 
@ he iz & 
| 02 OO ee ee 0z 
él 7 
| & gL gi @ 
Lt Zh 
q aI 91 
& St Sh © 
vi pl 


1248T 02 12727-79 09,322 H6600J7,.057 GCOS 1V 4VX DISPATCHER 791219py;SP PAGE 165 


SYSTEM TRACE ROUTINE 


5713 HHH HHI KI HH HEHEHE KEK EI KEIR K EK KIKI HEH IHRE KIRKE KE KHER EEK REE RARE te 
5714 * * o 
5715 * PARTIAL TRACE ROUTINE * 2 
SE NS te ae ee coe Se ut Gre ge bets dae et ee eee ee Oe 
5717 KHER IK HIKIIEE HHHEHEKEHKEKKHHKHEHKEKHIEKIKEHKIEKEK HEHE KEK KKH KEK ERIK EK KERRI 
5718 ! : d 
5719 * THIS ROUTINE TESTS THE TRACE CONTROL pIT DEPENDING ON EACH 
72 * A YP * e ‘ 
5721 IF THE BIT IS ON (TRACE OFF) THE TRACE ENTRY BUILD IN eCRTEp . 
720 % Pe ee 
5723 * CALLING SEQUENCE 
) 5724 * ogy 
5725 * TSX2 TSLECT 
5726 * TURN WH x) 
5727 * iy 
728 % W kif IN KP U 9 FR TRIN 0) ler 4. as ai 
5729 * 
5730 * 
007057 5731 TSLECT NULL | : 
097057 000000 2202 03 000 5732 °° & & £&4LDX0 OspU INT TIAL = 
ON7060 700312 7233 ol 000 5733 LXL3 eCRTEPs 7% yPeCR GET TRACE ENTRY TYPE Me 
O OA ejeze B 000 : ANX =) DU wlpia 7 
007062 000110 1032 000 5735 CMPX3 ioe Is “TYPE LESS THAN 72 -®@ 
097063 007066 60 00 O10 736 NC . XO MU : “18 sa aaa et 
007064 000002 2202 03 000 5737 LDXO 2 DU NOs SET XO FOR TYPE 728127 - 
097065 OOO110 1232 0 00 5738 SBLX sO110s , a) 
0N7066 001000 4312 03 000 5739 FLD =0001000 »DU _ 
00706 4 Li Py 
ON7070 700304 3173 10 ope 5741 CANAQ oe CRTCTs05PeCR 1S a TRACE ON 2®@ 
007071 000000 6002 I2 Ta 7E 92 sz 
ON7072 006145 4766 07 nao 5743 LDP6 Sp.SSAeDL IGNORE THIS ENTRY & EXIT 00000020 
097073 000000 7102 14 000 5744 TRA O04 a @ 
€2 
e2¢ 
z2@ 
02 
| Oe ® 
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gs 7 gS 
Oe tS PAT CHER TRACE ROTINE mms 
98 9S 
sg 5746 * Ss 
@ .. aa 5747 * THIS SECTION BUILDS UP DISPATCHER TRACE ENTRIES 
es 5748 % THF BUILD-UP ROUTINES ARE LINKED VIA TRA YeXXXX AT LYXXXX 3 
zg 5749 & LOCATTIONe RETURN KKA+ N #6 
@ . 5750 * THTS SECTION MAY RELEASED IF TRACE OPTION 1S OFF @ 
os 5751 * TRACE TYPE IS SYMBOLIZED IN #Y XXXX 08 
6U 5752 * 6Y 
@. 5783 # TRACE FROM BASIC DISPATCHER USE GREG OR NONE OPTION AT .TROPN er 
ly 5754 % TRACE FROM MACRO PROCESSOR SAVES ISCRIPTER IN TNS SEGMENT he 
ov 5755 * a | a 
@.: 5756 * MUST CHECK eCRTRV BECAUSE OF DYNAMIC TRACE ON/OFF FUNCTION @ 
ey 5758 \% ev 
@: ~- OO7T074 5759 CPUC eNRPRC | CPUS (X7) SAVED  .©3©[—. .—CTTCC PJ OOO 20, © 
ly 000004 5760 XTLNK SET 4 Iv 
oo ee eee OU000e  « ral XTEP Sey 2 yp ee ee Be GE ee he 
@ 6t 000000 5762 XTMP SET 0 «@ 
BE 000000 5763 PeSSR SET PeMCRO BE 
LE 5764 * LE 
@: 5765 * SYCALH TRACE ENTRY ge 
GE 5766 * GE 
ve | “3. +, OOGLOO!,... <O7TGL VecaLe Fou 0 er ey ge ge ee ee a re 
@: ON710Q0 006130 4776 07 000 5768 LDP PeCReSDeCRoDL | «® 
ze ON7101 7000 7163 00 000 5769 XEC eCRTRVsePeCR HECK IF OPTION Sea 
le 0N7102 004052 7102 00 010 5770 TRA LYCALH+1 NOe TRACE DISABLED 
ee. 007103 006671 7532 37 O10 5771 SREG TREGSPWPNT cr gee ES eS a ag .@ 
ez ON7104 700312 2223 17 O00 5772 LDX XTFP 9 oCRTEP9PNsPeCR es 
ze ”t—<CS””TC OT GE OO000 ¢ O00 7 AR DIMCROU9eXTEP IP eC TT RETURN - 
@ 0N7106 700002 0507 12 000 5774 STD Pe MCRO+2 sXTEP #PeCR AND ISR BASE z®@ 
oz ON7107 000022 6202 00 000 5775 EAX  XTMPeeYCALH Oe ms Pe eG Se ye 
ez 0N7110 700000 4403 12 000 5776 SXL XTMP 9 oXTEPsPeCR | ze 
@ . ON7111 00002 7553 12 000 5777 TA 29XTEP Pe ODe AND EP# 2z@ 
ez ON7112 007267 ro ee 00 010 5778 TSX XTLNK sYTCOM /* SET COMMON KPXeCPUNO AND PUT IN is 
zz ON T] D066 é it's REG RE Pah ee Ee ag 
@.: 007114 004052 7102 00 O10 5780 TRA TYCALH#1 | 
0z 5781 * . oz 
6 5782 * eYCALL TRACE ENTRY ee 
@: 5783 * ee gt 
At | 007115 5784 YeCALL EQU * i 
91 On 1§ 600 oye YOO TB ‘: e MPA eh e . 
@: ON7116 000002 2312 00 000 5786 | RSW 2 00000020 
vl ON7117 O00003 3752 07 DOO 57a7 ANA 39h TO MPROS SL 
: et O0N7120 007074 4472 05 010 5788 SXL PN eCPUSAL 00000020 
@. | ONTLA1 OOTOT4 O5 010 57a9 CMPA CPUSA aleleleleleyat 
r 0N7122 000002 6002 04 000 5790 TZE 291C 00000020 ‘ 
oO B% TO00ZD 000 3 VED ATS /7ZOFS9/UT- “¥, DUD000CU oi 
@ : ON7124 700042 7163 00 000 5792 XEC eCRTRV1 9PACR /* CHECK OPTION | 
8 007125 0040 6 WO V10 79 TRA NOe D Ns ¢ 
‘ ON7126 006671 7532 37 010 5794 SREG TREGSP sPN& 
©. a7 77007 zsO 7042 VO OI S795 TSK_——_XTLNKsYCALH 7 SET _CORNOW DATA FOR CALE 
s S 
v , ¢ 1 
@ Oe a eae ee ems ees Ss Be he a ee en en ng ae ea ne eg ae ee a an nee a Dane tc SS ee nts € ®@ 
@ z 
t } 
eo: :@ 


; i 007175 5845 YeFXTIT EQU % SSS es 


a nae a Sa 
| | oo ® 
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DISPATCHER TRACE ROTINE _ 
9S 
007130 000002 2752 07 000 5796 ORA eYCALL®DL /* SET ENTRY TYPE 6 
097131 700000 7553 12 000 5797 STA oXTEPsPeCR > 
007132 007267 7042 00 010 5798 TSX XTLNK ss YTCOM /* SET CPUNOskKPX AND PUT IN es 
007133 006671 O%32 37 O10 5799  ®&4LREG TREGOPSPUN® ne eo 
097134 0046033 7102 00 010 5800 TRA LYCALL el @ 
5801 * os 
5802 * eYCALX TRACE ENTRY 7 
BT ge 
007135 5804 YeCAl X EQU * 6 
ON7135 600214 7573 00 000 5805 — STAQ  wSTMPAesPoSSA 
097136 000002 2312 00 000 58n6 | RSW 2 00000020 ov» @ 
007137 000003 3752 07 000 5807 °° °&2xXANA 3eDL MPRC5560 vy 
ON7140 007074 4472 05 010 5an8g SXL PNeCPUSAL 00000020 Be 
007141 007074 1152 05 010 5809 CMPA CPUSAL 00000020  ) 
0N7142 000002 6002 04 000 S5a10 TZE 29TC 00000020 . 
ON71L43 714647000203 OOO 5ail — WFD ALB/ZOP 99/093 /29675 0 OOO 
007144 700042 7163 00 000 58}2 XFC eCRTRVeePeCR /* CHECK OPTION | 
097145 004030 7102 00 010 5813 TRA LYCALX#1 ee 
007146 006671 7532 37 O10 5814 SREG TREGSP»PN* 
097147 007240 7042 00 O10 515 TSX MTC YCALIC = 7S SET COMMON DATA OS 
097150 000001 2752 07 O00 5816 ORA eYCALXsDL AND TRACE TYPE - 
ONTLTS1 TO0000 7553 Lo OOO SAV? STA OXTEP OP OR 
ON7152 007267 7042 00 O10 5818 TSX XTINK es YTCOM /* SET CPUNQeKPX AND PUT IT IN «@ 
097153 006671 0732 37 O10 5819 LREG TRFGSP »PN* | gg 
0N7154 004030 7102 00 010 5820 TRA LYCALX#1 te 
5821 * oc ® 
5822 % eYFEXTH TRACE ENTRY ez 
5823 * a2 
007155 5824 YeaFXTH EQU # | z® 
0ON7155 100 46 U0 VOO 82 XFC aCRTIRVeePeCR = ‘amel* . . 
097156 007173 7102 00 010 5826 TRA YEXTHE ~ 
007157 006671 7532 37 O10 5827 } } }}}&SREG TREGSP PN ee @ 
097160 700312 2223 17 000 = 5arg LDX XTEPaeCRTEPsPNoPecR _ 
ON71 41 OO000 740 00 829 AR DeMCROseXTEPePeCR F R » . | ar 
ON71L462 700002 7563 12 000 5830 STO 2sXTEP»PeCR /* RETURN IC AND SEGID 2@ 
097163 600105 2363 00 000 Sezai [Dao  @SUORDSS9ePecoA- 5. kre er I Re ge RP ae 
ON7164 700003 7563 12 000 5832 STO 3eXTEP»P.CR /* sSNTRY WORD | % 
007165 O 6 33 FAX MP9 pe Se ee ee 
ON7166 700001 7403 12 000 5834 STX XTMP 91 eXTEPsPeCR : 
ON7la? O00023 6202 00 O00 5835 EAX  XTMP oe VEX gy 
097170 700000 4403 12 000 5836 SXL XTMP oe sXTEP sPeCR /* SET TYPE i @ 
ON7171 OOV7267 1042 00 O10 58a? TSX XTLNK® YTCOM 7 ¥ SET CRUNG RP AND BUT IN i bt 
ON7172 006671 0732 37 010 5838 — LREG TREGSP »PN* : | 2 
EP ee ee ROO Ea, 5839 YEXTHE FQU % ie a 
007173 600012 4707 51 O00 5840 LDP PaMCROoeSSAel sPeSSA - 
74 R4 ; + 
5842 % 
| ‘5843 *%  »YEXIT TRACE ENTRY 
5844 * 


nr NN Te nnn 
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8S 
DISPATCHER TRACE ROTINE i® 
9S 
ON71L75 700042 7163 00 000 5846 XFEC eCRTRVesPeCR /* CHECK OPTION se 
007176 007205 7102 00 010 5847 TRA YEXTE e 
ON7177 006671 7532 37 010 5848 SREG TREGSP »PN* es 
097200 007254 7042 00 O10 5849 TSX XTLNK*eYEX OMMON FOR EXT 
0N7201 000007 6202 00 000 5850 EAX XTMP oe YEXIT 1m SET TYPE ~@ 
097202 700000 4403 12 000 5851 SX XTMP eo eXTEPePeCR Oe Bg ee ee ee ig ee 
007203 007267 7042 00 O10 5852 TSX XTLNK *YTCOM /* SET CPUNOeKPX AND PUT IN 
007204 006671 0732 37 010 5853 LREG TREGSPePN* = | 
007205 5854 YEXTE EQU * is 
007205 001764 4706 07 000 5855 LOG. “PeGSSReaooksDa a Ne Tt a 
007206 004140 7102 00 010 5856 TRA LYEXIT+1  ) 
5857 * vy 
. 5858 \* aYFXTX TRACE ENTRY 
: 5859 * i =) 
007207 5860 YeFXTX EQU * “I 
ON7207 700042 7163 00 O00 5861  XFC eCRTRVewPeCR | /*® CHECK OPTION Oy 
097210 007217 7102 00 O10 5862 TRA YEXTXE « ® 
ON7211 006671 7532 37 010 5963 SREG TREGSP oPN* | ee 
07212 007254 7042 00 010 5864 TSX XTLNK s YEXTCM /* SET COMMON FOR EXIT vs 
ON7213 000000 6202 00 000 5aa5 EAX | XTMPeeYEXTX /® SET TYPF © TG ® 
007214 700000 4403 12 000 5866 SXL XTMP 9 eXTEPsPeCR | se 
007215 OO0726? 7042 00 O10 58467 TSX XTENK®YTCOM ag 
0N7216 006671 0732 37 O10 5868 LREG TREGSP »PN* «® 
; 007217 5869 YEXTXE FQU % Te I a a eet eg ee ep ee 
007217 001764 4706 07 000 5870 LDP P.SSReSSReDL ie 
097220 004153 7102 00 O10 5871 TRA TYEX TAG). ce ES ER a a ee 
5872 62 
5873 * SGOTO. TRACE ENIRY Ce nn re a 
5874 x L2 @ 
| . 007221 5875 YeGOTO EQU % 9g 
ON7221 700042 7163 00 000 5876 XFC eCRTRVoePeCR a 
ON7222 007236 7102 00 010 5a77 TRA YGOTOE 2® 
097273 006671 7532 37 010 5878 SREG TRFEGSP se PN® ee 
ON122?4 T003L2 202 00 5879 LOX EPoe oPNoPe zz 
097225 700000 7407 12 000 5a8R0 SAR PeMCROeXTEPePeCR /* eGOTO IC z@ 
007276 700002 0507 Iz 000 Saal STD Pe MCROsZsXTEPSPwCR AND TSR, 
0N7227 700002 7553 12 000 5882 STA 2eXTEPePeCR /* CALLEE MOD# AND Ep# 
097230 600105 2203 00 000 5AAS LDX XTMPeeSLOAD#+39ePeSSA © 
0N7231 700001 7403 12 O00 5aR4 STX XTMPelsXTEPePeCR /* eSNTRY WORD 
N7232 0000 2 O00 006 BR "AX XTMPseYGOIU YTRY VP 
097233 700000 4403 12 000 5886 SXL XTMPosXTEP ePeCR 
007234  O07267 7042 00 O10 5887 TSX XTINKsYTCOM 7*® SET CPUNOD KPX AND PUT INS 
007235 006671 0732 37 O10 5888 LREG TREGSP »PN* _ 
ze 007236 58a9 YGOTOE FQU % ~~ a & 
0N7236 600012 2363 54 000 5890 Loa oSSAsDI oP e SSA 7 
ON7237 004350 T102 00 O10 S891 TRA LYGOTOFL GG 
| 5892 % « ® 
ee, SOMONE OR ACR IAGER ee 
5894 * 
arene ee GEORG SBS VOMIT Ep RT a er ea ee @ 


| 
® 
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Ce a ae a i a 
Os : PT SPATCHER TRACE ROTINE 
9g 9 
sg 0N7240 001764 4706 07 O00 5896 LpP P.SS5ReSSReDL 
@ :: ON7241 001761 4706 07 000 5897 LDP P.SSReeCTYP9DL 
ss ON7242 700312 2223 17 000 5a98 LOX XTEP seCRTEPsPNePeCR 
wz ~~ ONT243.~TOO00! 7403 12 000 5899 STXO TeXTEP ePe 7 MOD# — 
@ .: 07244 000010 2373 00 000 5900 LDAQ eWTSRoePeSSR /* ISR OF CALI.FR 
os 0N7245 700002 7573 12 000 5901 STAQ 2 eXTEP9PeCR 
a 007246 600105 2203 00 000 59n2 LOX XTMP oeSLOAD+399PeSSA 
@: 007247 700002 7403 12 000 5903 STX XTMPe2eXTEPePeCR /* eSNTRY 
ty 007250 000004 2353 00 000 5904 LDA eWICI9ePeSSR /* IC AND 1 OF CALLER 
2»  ON7251 OO7253 3752 00 010 5905 ANA YMASK 
@: 097252 Q00000 7102 14 000 59n6 TRA oXTLNK 
ve 007253 TI7TTTTITTTEOO 000 5907 YMASK OcT CT ERECTICOn 7 
ey 007254 5908 YEXTCM EQU 
@: ~ 0N7254 700312 2223 17 000 5909 LDX XTEB yo CRTEPSPGP SR i 
" 097255 700000 7407 12 000 5910 SAR PeMCROoeXTEPsP.CR /* SET EXITED 1¢ 
ow 007256 000000 6202 0 00 5911 FAX TMP 9s - 
| 07257 700001 7403 12 000 5912 STX XTMP 91 sXTEP»PeCR _@ 
ee ON7260 001764 4706 000 5913 LDP P.55Roe ’ ee 
ls ON7261 001761 4706 OF O00 5914 LoP P.eSSRoeeCTYPsDL = 
@ : ~ ON7262 000010 2373 00 000 5915 #&4LDAO @WISReePecoR /*® RETURN TSR... OOOO = 
ge 007263 700002 7573 12 000 5916 STAO 2sXTEPsPeCR ia 
vw ~~ ON 7264 ~©000004 2203 00 O00 5917 LDX XTMPoeWICI 9 oP R RETURN 7 ve 
@: 07265 700002 7403 12 000 5918 STX XTMP +2 4XTEP »PeCR @ 
ze 007266 000000 7102 14 000 5919 ORs eI ae a ee 
te 007267 5920 YTCOM EQU * 
@ .: — O0A7247 000000 6202 16 000 59>1 FAX WP kek 2 ee ee 
6z 097270 006771 2602 17 010 5972 ORX XTMPsTCPUNO »PN 62 
82 ON7271 OOOO! 4403 12 000 5923 SX. XTMP ols Pe 62 
@. 007272 007013 7102 00 010 5974 TRA _TREPUT+1 /* PUT TRACE FNTRY IN BUFFER z® 
92 | 007273 5925 YeSEVT EQU % = —_ A 
re or ee oe 007273 59726 eTROPN IYSEVT#1sGREG 
@. 097273 700044 7173 00 000 XEN eCRTRV42 9 Pe CR ——— 1. 
gz 097274 774336 7102 04 3632 TRA Relais Es 3 
z ON ?275  OOOOL?T 2352 00 5997 LDA 0 YSE 
@.: 007276 5928 YCOM  EFQU x az YECC MERGE HERE -@ 
ze  ON7276 700312 2223 17 600 59299 LOX XTEPeeCRTEP9PNeP. a ee 
61 007277 700000 7553 12 000 5930 STA oXTEP ePeCR ON SET TYPR 
@: 097300 600017 2353 00 000 5931 LDA e STATES oP 2 G9A 
A ON7301 600117 23463 00 000 5932 LDQ eSRQST 9 9PeSSA 
os OSD TODO 2 O00 5933 Xe) a XTEP oP eCR 
@: 0N7303 007004 7102 00 010 5934 TRA TODPNO /* «TRPUT TODPNO 
oO TSO4G—C~*«~*SSONSCOVWCTSP EOU ee 
et ; 007304 5936 eTROPN TYDISP#lsNONE 
®:  On7304 0046 7173 00 000 XED aCRTIRV+ 
i 007305 772254 7102 04 1561 | TRA | TYDISP+1le$ 
oO FSG are 7 O00 937 XTFP es eCRILPIPNerPeCR 
@ : 097307 000003 2352 07 000 5938 LDA eYDISPsDL 
eo = ON7310 O00. tes te. 000 6939 “SIA eXTEP Sheth 0 


L 097311 700002 7537 12 000 5940 STSS 2eXTEPsPeCR | i 


007323 700003 7553 12 000 5950 STA 3eXTEPeP.CR  ) 
097324 007004 7102 00 010 5951. TRA TODPNO © 7® eTRPUT TODPNO mmm 


A Ss nN A A tree r—eneveuninennmsiaansivesannissin 


Uo Ue ik Eee ALL oh ee eS ee) eZ.) 


hm YSPATCHER TRACE ROTINE 


9S 


007313 5942 YeENBL EQU * i 
; 007313 5943 eTROPN TYENBL#1L GREG gg 
07313 700044 7173 00 000 XED eCRTRV+#299PeCR 
007314 773420 7102 04 2734 | TRA QYENBL*L SS 
007315 006136 4746 07 Q00 5944 LOP PePSTsSDePSTeDL @ 
007316 700312 2223 17 000 5945 (DX ~  XTEPeeCRTEPOPNePsCR ©. 0 eS 
007317 000006 2352 07 000 5946 LDA e YENBL»®DL ‘ 
097320 700000 7553 12 000 5947 STA eXTEPsPaCR 2 oie : a @ 


ON73a1 700002 7563 12 000 5948 STO 2eXTEPsPeCR Ly 
0N7322 400000 2353 02 O00 5949 LDA 9QUsPePST oy 


007325 5967\YeIDLE FQU * 
007325 5948 eTROPN TYTDLE*] »NONE | a 
097325 700046 7173 00 000 XFD- eCRTRV+499PeCR 
007396 #772017 7102 04 £1345 TRA [VEE 8 ee 
097327 700312 2223 17 000 5949 LOX XTFPeeCRTEP sPNsPeCR .® 
097330 000012 2352 07 000 5970 LDA eYIDLEeDL sé 
007331 006771 2752 17 O10 5971 ORA TCPUNOD»PN le 
097332 700000 7553 12 000 5972 STA oXTEP®PeCR «@ 
097333 700002 4543 12 000 5973 STT 2sXTEP»PeCR z6 
097334 700003 4503 12 000 5974 ~STz Sixterersce CO ee ee ee ee ee ee 
007335 006775 7102 00 010 5975 TRA TPTOD /* «TRPUT TOD «® 
007336 5976 YaSCC FOU % | COE 
007336 5977 eTROPN TIYSCC+1 NONE : is 
097336 700046 7173 00 000 XED se eee, 
097337 772453 7102 04 2012 TRA TYSCC+1 9S 
007340 000000 6352 16 000 5978 SSeS 
097341 006771 2752 17 010 5979 ORA TCPUNO®PN _ 
ON7342 OOOOL6 2752 OF O00 59R0  ORA eV SCCODD gg 
097343 700312 2223 17 O00 591 LOX XTEP seCRTEP sPNePeCR - 
0N7344 700000 7553 12 000 5982 STA sXTEP#PeCR : Te @® 
0N7345 700002 0517 12 000 5983 STD PeFNTs2sXTEPoPeCR 7 
007346 006 02 10 5984 RA T . e zz 
007347 5985 eOPTE. TR *END OF TRACE OPTION ROUTINE 2@ 
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61 
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MUL TI=PROCESSOQOQR ROUTINE 
007347 5987 eOPTSe MPeMLTPRC 
59a8 * | =e 
5989 * THIS ROUTINE IS SELECTED IF MULTI*PROCESSOR SySTEMe 
990 * E CTIO 
5991 x TO ENABLE IDLE PROCESSORS 
5992 * ae 
000000 5993 XTMP SET 0) *TEMPORARY 
— OOOOO~—C—C—~—SS GG XNPC 86©6SET.OU~C~«~ BTt‘(NN...CCVC6C..C.CCMNUMBER OF PROCESSOR TO CHECK. 
000002 5995 XCPUNO SET 2 *CPU INDEX OF PROT MASK | 
~— CO OTGOO—C—~—“‘~‘CSCSCV:*CSCQKLO©6€UGSETNOU#~27T~«z& }POUOUt*ét;t;t‘OCOCO.OVVCvCCOCBOCCNTEMPORARY 6PeKLDUUUUUUUUUUUUUUUUU 
097350 5997 MPENB EQU % 
ON7350 006042 4736 00 5998 LOP PRO? ee 
097351 300036 2203 00 000 5999 LOX XTMP sDeDSP9sPs PRQ *IF THERE ARE NO PROCESSOR IDLE>s a 
007352 000000 6002 IIT 000 60n0 TZE 9PU —, 2 
097353 700271 2203 00 000 «4001 LOX XNPCoeCRNPCoePeCR | . 
i OOo | BOO Mem°”~=~=(CCR GU ~COMR ee ee ag ge a ag ee 
007354 777777 6202 10 O00 6nn3 FAX XNPComl sXNPC sel THERE ARE NO MORF PROCESSOR» 
097355 000000 6042 Il 000 6004 TMT »PUTP 
097356 300013 2223 10 000 6005 LOX XCPUNO sDeCPUsXNPCe p.PRO MPRC5380 
ON7357 Tr77?5 6042 04 7354 6006 °®#4.}TM!?  £MPFleS  £PROC'R IVE. SK 
0N7360 300013 1073 10 000 6007 CMPX PN eDeCPUsXNPCoPePRA 00000020 
OA7T361 6002 O 6008 ; MPFI eS OWN PR > SKIP OAUULeLULUr ae 
0N73462 700100 2363 12 000 6009 Lno eCRCMC®XCPUNO®P.CR IS PROCESSOR RET IaINe 00000020 
0N7343 OQO000 6 U4 HH 6010 TRL we: NO iN VUE JOUU00U0 C0 
0N7344 040000 3162 03 O00 6011 CANQ oF BT39DU MAYBE SO | 00000020 
007365 777767 6002 04 7354 6012 TZF MPF19$ I ’ IP CInc 
007366 6013 MPE2 NULL | 00000020 
) H6 VO PTOO YOO HO 1 fle eCRCMC PACPUNU OR. CR CNN TODDUD SU 
097347 777765 7102 04 7354 6015 TRA MPE19$ MPRC5430 
6016 * 
6017 * SET UP sCRORR/ CRORS = THERE ay BE MORE HARDWARE . ‘ 
6018 * OPTION Re Ut ‘ws 
6019 * SO, NOT TO LOST OPTION REGe IN GATING MECHANISUM - 
9 
004000 © 6021 ORNCHE BOOL 4000 *CRCF BIT OF OPTION REGISTER 
097370 600116 1727 00 000 6023 LDO eSORSVs9PeSSA 
e 9 re 
0N7372 700276 1527 17 000 6025 STO eCRORS »PNoPeCR 
U olere p O00 5026 DA ORNCHE SD 
097374 700276 6553 17 000 6027 ERSA eCRORS sPNePeCR *RESET CRCF. TO OFF 
O0TS 75 D0lss4 (lo? U0 “010 6028-———— — RA. a re re en ee 
6029 * 00000020 
* , ‘ 
6031 * 00000020 
097376 200000 2143 17 000 6033 SZNC eKLCAC ePNePeKL 00000020 
007377 00 00 010 O34 RA RDO eR XPED YCY FOR ACH PROB v ; DIT SPOPXP ee 
097400 001541 6012 00 010 6035 TNZ RDO CLEAR CACHE 00000020 
097401 600302 1073 00 000 6036 CMPX ~~ PNeeSCPUNe *PeSSA00 0 OONTNNZ0 
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MULTI=PROCESSOR ROUTINE | | @ 
, 9S 
ON7402 001541 6012 00 O10 6037 TNZ RDO PROCESSOR # IS NOT EQUAI 00000020 & 
097403 001536 7102 00 010 6038 TRA TeRDO+1] RETURN 00000020 vs 
6039 * 00000020 = 
O00000~ 6040 PeRMS SFT PO SESE ee UO ak 
007404 6041 MPCCRT NULL 00000020 7 ®@ 
0N7404 600302 7473 00 000 6042 STX  PNeeSCPUNetPeSSA . . )—D.rOOOOCREOOOO ZO — 
007405 006063 4706 07 Q00 6043 LDP PeRMS*SDeRMS9DL 00000020 ev 
097406 000040 4133 00 000 64044 RSCR ScicLK. sos ktS Se ~ gooo00zo a 
097407 600300 7573 00 O00 6045 STAQ eSCCRT9aPeSSA 00000020 - 
0N7410 002527 7102 00 010 6046 ~ TRA TenCNO*+l RETURN GOI L oy 
6047 * : 00000020 ov @ 
= ON7411 6048 MPCAC NULL | | 00000020 = =—O - 
007411 S00014 2373 00 000 6049) LoOAg eSLDCK99P4SRM 00000020 ep 
ON7412 200240 1173 17 000 6050 CMPAQ eKLCCT ePNePeKL 00000020 zy 
0N7413 004517 6012 00 O10 6051 TNZ TeCLDDel CACHE WAS CLEARED 00000020 i 
007414 £6052 eCCAC) =P KL a ©) © | 018 | ©] © 1 0 a 
| INHTB SAVE 9ON «® 
097414 000000 0116 00 000 CCAC | es 
097415 700171 7163 00 000 XEC eCRACC+999PeCR i 
097416 700040 4133 00 000 RSCR 32eePeCR | | oe @ 
007417 200240 7573 37 000 STAQ eKLCCT 9 7¥ePoKL se 
007470 200000 4505 17 000  ~ - —— SIZ... —s KICACS OP eRG ye ree gS ge 
INHIB RESTORE «@ 
097421 004517 7102 00 6053  £TRA eC DDO LO OOOOOO ZO 
6054 %* 00000020 le 
| 007422 6055 mPcRT NULL 00000020 
0N7422 005302 6012 00 010 6056 TNZ X.OMIOe4l STATUS NOT READY*s FRROR RETURN 00000020 éz 
ON7423 600300 2373 00 000 6057 LDAQ eSCCRIoePeSSA OK STATUS OUDUDUZT 
0N7424 500014 7573 00 O00 6058 STAQ ~e@SLDCKsePeSRM 8 SET SCU CLOCK 00000020 
097425 000000 7102 11 000 6059 TRA + sDMIOX © 1°00 © 40 
007426 6060 eOPTEs MP sz 
z@ 


ttn tt eee hn er 
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Sn co RN hl cA RR a Sa 2 ee 
PRIORITY FOR URGENCY AND 1/0 -_ ) 
9S 
6062 * ss 
HS H~™~*~*CSTALT'S:«OPTION GIVES PRIORITY BY I/0 RATIO AND/OR URGENCY OF? 
6064 # OPTION IS COMPOSED aM FOUR ROUTINES | ie 
6065 * COMMO B ne zs 
6066 * 1/0 RATIO OPTION ONLY  IOBASE ~@ 
—  « 60HT * ©”. URGENCY OPTION ONC YY URBASE ssi gg 
6068 * ONLY WHEN BOTH OPTIONS JIUBASE es 
6069 * ov @ 
| 6070 * is 
OTL R OUCONTROLED PDP ENTRY FIELD DS BIT 
6072 * BIT 12 = 1 ENABLED BY EPe6s BY ALARM v@ 
6073 * q BLOCK BROK n 
6074 * BIT 14 = 17 TALLY CODE _ 
007426 6075 eOPTSe CMeCMIOUR Ss RCOMMON ROUTING KO 
6076 * ie 
6077 * “OMMON CODE OR BOTA omecy: T AND URGENCY CONTRO : — 
6078 * | | oc: 
= 6079 * = 
60R0 * ROUTINE TO DECREIMENT TALLY OF BIT 14=17 IN PDP “ 
6081 * CALL M a ee ee eS ae an 
6082 * XeDCNL TRA  PRCM2 - 
HO 8 * Ke lCNn oy. oo we 0 ROU q ae OMPT f * : 
6084 * XeaNCN3 EQU * == RETURN -@ 
Se eae SOROS ee ee ee 
090000 6086 P.ePDP SET Po : 
ee ee OTH AT GORY PROMS EQUI ee eo 
O0N7427 000000 2353 16 000 6088 LDA oKPXePePDP | 3 
e at ore e VOQ HORS ANI A m / Ree TO 9 DU N Y “_ OK RFK Xx Y i ; 
0N7431 002545 6012 00 010 6090 TNZ XeDCN3 *SKIP COUNT DOWN 
DA1432 D000 @ 00 609) ANA ORC = DL IRTORT TY TERO 7 
07433 002544 6002 00 010 6n92 TZE XeDCN2 *RECOMPUTE Tay icy 
007434 «0 609 : iD) 
097435 000000 7553 16 000 6094 STA 9KPX—ePePDP - 
6 6 OU 0) ere ehae 9 ke A Xe \ " = 
| 6096 * 
6097 * ROUTI 0 - ou 
6098 * 
— OGG K~*CCALCCEED ~FROM XeEB8s XeEBBA 
6100 * Lt 


ee er ne OU UOUS = EOP BeBe Sete Oe oe ee 


| 007437 6102 PRCM3  EQU x eee Sas Bete 
ONT437 006036 4706 OT 000 6103 07 EDP Pe PDP SSD 6 PDP vl 
097440 000040 2362 03 000 6104 LDA ZIQWEN»DU . 
O7441 6105 ORS eK PXer eo Zh 
ON7442 003024 7102 00 010 6106 TRA EB8A+1 *#RETURN | - 
a eee Ee a 
| 007443 6108 PRCM4 EQU x : 
O07443 610 Q fe) 8 
007444 000000 2563 16 000 6110 ORSO sKDX sP4PDP 


07445 003062 7102 00 O10 4111 TRA EB10 


29 
19 
@. 


6S 


8s 
@ . 


9s 


SS 
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eg 
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007446 6112 eOPTE. CM *xEND OF COMMON 
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PRYORTTY FOR URGENCY AND 1/0 
007446 6114 eOPTS. IOsIORATE 
6115 % 
6116 * 1/0 RATE OPTION CODE 
6117 * | 
6118 * CAILED TO SET ZIOWEN BIT 
6119 * XeFp5 TSX CKEVTXePRIOL xAT RELINC;ROADBLOCK 
6120 * OR 
6121 * XeFL1O TSX CK D - 
6422 * 
=—_— §O0000 Glas PepDP Set PO. TTT 


007447 6124 PRIOL EQU 


ON7447 006036 4706 00 6125 LDP ePDPeSDe 

0N7450 000040 2352 03 000 6176 LDA ZIOWENs DU | 
097451 000000 2553 16 000 6127 ORSA *9KPXePePD ¥SET I/O WAIT BI 
0N7452 000000 7102 11 O00 6128 TRA sCKEVTX #RETURN 

6129 * 
6130 * COMPUTE PRIORITY CODE ZIOURC BY I/O RATE 
| 6131 * 
007453 6132 PRIO2 EQU % 

097453 600106 2343 00 000 6133 SZN eSLPRT99Pe NO: LOCAL ceu 11ce ee 
097454 000007 6002 04 7463 6134 TZE PRIO30S% *GIVE MAX COUNTs HE MUST BE NEW 7 ee 
0N7455 600107 2363 00 000 6135 LDQ ool tle ePeQaA ve 
0N7456 600106 5063 00 000 6136 DIV 2 SLPRT 9 9PeSSA *GET RATE OF CHANNEL TIME «® 
097457 000002 7722 00 000 6137 QRL 2 *VIS CPU TIME * 2 ~— ge 
097460 000001 6362 06 000 6138 EAQ ZINTERsQL *ADD MINIMUM DISPATCH COUNT 

097461 OO0017 1162 03 000 6339 CMPQ Z1OURCsDU BETWEEN CODE RECOMPUTE 
ON7442 000002 6022 04 7464 6140 ~ TNC PRIO495. *IF RATE OVER. SET IT TO MAX és 
COO THSS~S~*«~SST MT SOPRTOB OEQU x ee ee ee 
097443 000017 6362.00 C00 6142 EAQ ZIOURC z® 
007464 6143 PRIOA (EQUI a en tbe ag gs 
097464 000000 2563 16 000 6144 ORSO eKPXePePDP 
097465 600107 2363 00 000 6145  ——  Lna oSLTTeePe SSA ae Tn, es eo ee eee 
0N74466 000001 7722 00 000 6146 ORL l *DECREMENT CHANNEL TIME AND CPU TIME bg 
ONT46G BOOT B oye 000 B14 9eP . e OCA WORKIN aes 
07470 600106 2363 00 000 6148 LDQ SSI PRT 3 sPe SSA *OF CHANNEL TIME AND CPU TIME 2@ 
ONTa7)  O00001 7122 00 000.6149  ""GRL le... . gee 
ON7472 600106 7563 00 000 6150 STQ eSLPRT oe sPeSSA a 
07473 : I 6151 oD ee Se 

007474 6152 eOPTEe I0 A 
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PRIORITY FOR URGENCY AND 1/0 
007474 6154 eOPTS. URsURGCPR 
6155 % | 
arate 6156 * URGENCY OPTION CODE cs 
: 6157 % | 
6158 * CALLED TO COMPUTE PRIORITY CODE ZIOURC By URGENCY 7 
6159 # XeDCN2 TRA PRUR — = ~ eS eee 
—— 6160 * 
| CO7475 6161 PRUR} EQU #* 
007475 006136 4746 07 000 6162 LOP PePST»SDePSTeDL ly 
007476 400000 2363 16 000 6143 LOO wKPXoPe 
ON7477 OO0077 3762 07 O00 4144 ANQ =O779DL *GET URGENCY 
ON7500 000020 7362 00 000 6145 QLS 1882 *DEVI BY vy 
007501 000001 6362 02 000 46166} EAQ ZINTER sQU *ADD MINIMUM DISPATCH COUNT , . 
007502 000017 1162 03° 000 6147 CMPO ZIOURCsDU ¥ MPU 
097503 000002 6022 04 7505 6168 TNC PRUR2 9% *IF OVER FLOW ‘ 
007504 OU00TT 6962 00° 000 6149 | .. GAG: ZIQURG - -< "ROET IT MAX 
097505 6170 PRUR2 EQU * 
097505 000000 2563 16 000 6171 ORSO *KPXePePDP *SET TALLY CONE 
007506 6172 eOPTE. UR 
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PRYITORTTY FOR URGENCY AND 1/0 
007506 6174 eOPTS. IUsTOURPR 
6175 * = 
6176 * CONE FOR BOTH URGENCY AND 1/0 RATE 
6177 % 
gius + COMPUTE PRIORITY CODE ZIOURC 
6179 x SET ZYOWEN BIT | 
: | 6180 x 
6181 * THTS CODE 1S SAME AS PRIOIL Se 
6182 % 
_— 900000 6183 PePDP SFT PO Eeye ee Se we 
007507 6184 PRIUL EQU * 
097507 006036 4706 07 000 6185 LOP P.PDPsSDePDP? iw 
097510 000040 2352 03 000 61R6 LDA ZIOWENsDU *SET 1/0 WAIT BIT i - 
097511 000000 2553 16 000 6j87 ORSA vKPXoPePDP »@ 
007512 000000 7102 11 O00 6188 TRA sCKEVTX i 
6189 
6190 * x 
SUL Cae T PRIORITY -CODE-ZIOURC-FOR-BOTR-OBE TON 
6192 * XeNCN2 TRA PRIUV2 
6193 * ——..e 
| 007513 6194 PRIU? FQU % Ge 
07513 6136 474 619% fe *5De ° 
097514 400000 2363 16 O00 6196 LDA sKPXePePST *GET URGENCY 
007515 000070 3762 07 000 6197 ANO =070eDL ; 
097516 000017 7362 00 000 6198 OLS 18-3 /* URGENCY /3 
ON7517 000023 62 04 542 6199 TOA RTUWs 3ENC 
0N7520 600106 2343 00 000 62n0 SZN 0 SLPRT 9 ePeSSA 
AT5 Al 6 620: F TUS 
ON7522 oebees 2363 00 O00 6202 Lda Se aes 
ON7523 600 6 0 6203 DI aol: wr) 
ONT5 24 abO008 7722 00 000 6204 QRL 
0N7525 000001 6362 06 O00 6705 — FAQ + HFESCL ~ #® ADD MINIMUM INTERVAL 
097526 000007 1162 03 000 = 67n6 CMPQ ZIQNURC/29DU 
(a) at. 4 620 C. T 9 
007530 6208 PRTU3 EQU * 
07530 000 6362 0 00 6209 FAQ TOURC72 
7 007531 6210 PRTU4 EQU % 
07531 0 1 0362 04 7542 6911 ADLO RTU 
097532 000000 2563 16 000 6712 ORSO 9K PX—oPePDP Ah 
ON7533 6 ra 6213 Bye) eolLtTTs$ 
—0N7534 000001 7722 00 O00 62714 QRL 1 
OA 7535  GOOLOT 7563 00 O00 6215 STO SL TT Pe SSN 
097536 600106 2363 00 000 6216 LDA 2 SLPRToePeSSA 
a 097537 OO00001 7722 00 000 6217 WHORE - “Si © oa f° eg oe ee ee Se 
097540 600106 7563 00 000 6718 STO 2SLPRT9e¢PeSSA 
ON754T OC 02 00 UID 6719 R Ke DCN 
007542 6220 PRIUW BSS rE. - /*® TEMP SAVE 
naa ol 0) 1:7: ae 6721 eOPTEe IU 6 
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8S 
cLASS BB PRIORITY ~@ 
9S 
097543 62293 eOPTS. BPsBPRIOR | a 
6224 * vs 
6225 %* PRIORITY CLASS B OPTION es 
6226 * zg 
6227 * TABLE AND nATA FOR CLASS B PROCESS | ,@ 
6228 * os 
000007 6229 BP.NSZ SFT 7 NUMBER PRIORITY B PROCESSES ALLOWED 00000020 i 
6230 ss 
007544 6231 BP.aTAL EQU * a 
; 007544 6232 DUP 1eRPNSZ ov 
0N7544 000000 000007 000 6233 ZERO o7 *COUNT TALLY OF DISPATCH + @ 
097545 000000 000007 000 ZERO 7 COUNT TALLY OF DISPATCH 
097546 000000 000007 #000 \ ZERO 97 *COUNT TALLY OF DISPATCH 
007547 000000 000007 000 ZERO 7 > => =“ SCOUNT TALLY OF DisrAiCch: = OO 
097550 000000 000007 #000 ZERO 97 *COUNT TALLY OF DISPATCH 
0N7551 000000 000007 OOO © “ZERO. of COUNT TALLY OF DISPATCH 
07552 000000 000007 000 ZERO 7 *COUNT TALLY OF DISPATCH « @ 
62734 ae 
007553 6235 BP.SNB BSS BP.NSZ *SNUMB OF CLASS B PROCESS | e 
6236 «@ 
007562 6237 RBP.ATOT EQU * St 
| 007562 6238 DUP TeRPeN5Z 
097542 000134 000000 000 6239. ZERO 92.0 /* DEFAULT 92 MS -@ 
007543 000134 000000 000 ZERO 9200 A DEFAULT Fo MS ss 
007564 000134 000000 000 ZERO 9240 /* DEFAULT 92 MS 
0N7545 000134 000000 #600 ZERO +=9280 a= =e DEPAULT 82 WG. Oe ee eS 
007566 000134 000000 000 ZERO 9240 /* DEFAULT 92 MS 2 
ONT547 000134 0000 000 ZERO 290 = 
007570 000134 000000 o00 ZERO 9240 /* DEFAULT 92 MS 2z@ 
6740 * 92 
6241 * TIME QUANTUM CHECK AND SET . 
62742 % XeRN1A TRA  BPRDI i ca aa a mS, 
6243 * €2 
Se OC000b ~ ~6964.P.PDP set ea 
007571 6245 BPRDI EFQU # z@ 
ON7571 100000 2363 16 000 6246 LDQ: .8KPXePePDP "|... rg 
0N7572 000100 3162 03 O00 6247 CANQ ZBPRIOsDU *IF B PRIORITY PROCESS ze 
007573 O00003 6012 04 7576 6248 £4 NZ BPRD2eS  *GO LOAD HTS QUANTUM OOOO 
097574 001615 2362 00 010 6749 LDQ TOTM *NOe THEN STANDARD QUANTUM Ai 
0757 : 6250 aR 
007576 67251 BPRD? FQU * 
ON7576 OOOD0T 3762 OT 000 6752  ANQ e07eDU *GET B PRIORITY DNDEX 
ON7577 000017 2362 06 000 6253 1.eBPRD LDQ ~~ BP.TOT=BPBASEsQL *GET SPECIED QUANTUM 
007600 OO1601 7102 00 O10 6254 TRA XeRDIA+1 i .@ 
6755 * ‘ 
Se eee eT It PRIORITY Bo PROCESS. IND GUEUL, oS 
6257 * « @ 
SE OO000 “£2650 PPk — use QS ne rr re en eae 
| 007601 6259 BPP FQU * | : 
ON7601 O00100 3002 03 000 6240 CANX BX : ee ere ee 
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CLASS PRIORITY 
003335 6002 00 O10 62761 Xe.BPP TZEF X.PPL+1 *NOe NOT CLASS B 


On7602 


62762 #CHECK I/O, URGENCYe E v 


007603 001400 3002 03 O00 6243 CANX PPX »sZEXCODsDU *#IN MAIN LEVEL 
0N7604 003335 6012 00 O10 6764 TNZ XePPl+ xNO » AND GO 
007605 040000 3152 03 O00 6245 CANA Ps .DWT DU *IN DISPATCH QUEUE 
007606 003341 6012 00 O10 6266 TNZ PP? KOTART FROM CURR 
ON76N7 100000 2353 16 000 6267 my eKPXoP,PDP 

097610 000007 3752 07 O00 6768 ANA =O?eDL *GET B PRIORITY INDE 
ON7611 000001 2352 05 O00 6769 1TeRBPP] LDA BP. TALSBPBASEsAL  %*GET DISPATCH COUNT 
ON7612 O00000 be22 00 6270 FA Ye 

097613 300037 2223 12 O00 6271 BPP1 LDX PPY sDePRO»PPY ePePRO 


ON7614 003356 6002 00 010 6272 TZF PPTLI * QUFU | TATI 

0N7615 100000 2203 12 000 6273 LOX PPXeePPYePePDP 
ON7616 T77700 3002 03 000 6774 CANX PPXeeZBPRIO*DU  *CHECK PRIORITY 

ON7617 777774 6012 04 7613 6275 TNZ BPPleS. *IT HASe GO NEXT 

ON7670 000001 1752 0 000 62776 SBA 1eD | 

ON7621 777772 6012 04 7613 6277 TN2 BPP1leS *NOT RUNNOUT YETe GO NEXT 

0N7622 003345 7102 00 010 6778 TRA PP3 *PU HER 


a cer ea ei en rg lp ue ee er a i ee 


ae ee ae Pe eee Se i oo @ 
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cLASS B PRIORITY ~@ 
9S 
6280 * "gg 
| 6781 * ENTRY POINT 21 OPTION ROUTINE -- UPDATE PRIORITY © ia cae 
6282 %* €S 
a Se KOR Ss 6 PROCESS KOM. 10 -UPDAIE oe ge 
_— 6284 * :  . 
6285 * A POSITIVE = CHANGE PRIORITY 
6286 * AU = TIME QUANTUM IN 32 MS SECe - 
ORT HOOSC””C*SACL aC DIESPATCHES ALLOWED TO NON PRIORITY PROCESS, 
6288 * A NEGATIVE = DELETE PRIORITY “ 
6289 * 
6290 * CALLED FROM 
a OP we  <KaENBP TN? “GPUPL) 00 ce tee re gr gene 
000004 6292\XORJ SET 4 
000001 6293 PaPDP SET Pl 
000000 6294 P.SNR SET PO " 
OORT 6S XPT SET ae 
007623 6296 BPUP1 EQU | © 
097623 006144 4706 07 000 6297 LOP - SNASSDeOND SOL” > ETS mas 
007624 OO00000 2353 14 000 6298 LDA »XOBJ9PeSNB *CHECK SNUMB mn 
O0N7675 003524 6002 00 010 6799 4.''2e  ExItTO NOT EXIST. DENY UU =2 @ 
007626 006036 4716 07 000 6300 LDP PePDP»SDePDP DL es 
ON7627 100000 7o15 14 O00 6301 LXL PTRe9 Pe 2 
097630 O00007 3612 03 000 6302 ANX XPTR97sDU /* GET B PRIORITY INDEX «® 
007631 OOOO0?? 2362 07 O00 6303 LDO =O779DL Pe, Gre ne ee 
097632 000010 2112 11 O00 6304 1.BPUL CMK BP.SNB=BPBASEsXPTR *CHECK AGAUN is 
097633 003524 6012 00 010 6305 TNZ EXITO — NOT MUCHe DENY REQUEST... og 
0N7634 600214 2353 00 000 6306 LDA eSTMPAs 9PeSSA ae 
097635 000010 6052 04 76465 6307 TPL BPUP49S CHANGE REQUEST mm ae 
_ 007636 6308 SHUTe DSP *DELETE REQUEST z® 
O0N7637 006036 4716 07 000 6309 £#4.LDP  PePDPsSDePDPsDL © Gg 
097640 100000 2363 14 000 6310 LDOQ *XOBJ»PePDP | | sz 
0N7641 000100 3762 03 000 6311 ANQ ZBPRIOsDU £¥XSRESET B PRIORITY — eS ge ee ee ee ee a 
0N7642 100000 6563 14 000 6312 ERSO »XOBUsPePDP ee 
= — =. -- «0T6Gs.- — eat - -OPENe = 2050.) oo 0 ee ae 
007644 003527 7102 00 010 6314 TRA EXTTl *SUCCESSFULLe PRIORITY DELETED 2@ 
OO RHC REGTSTERED STILL 
007645 6316 BPUPS EQU * 
or gay ens OO0U0s 7452 00 000 sary > AS STON Ie SN Se 
097646 000000 6202 01 000 6318 FAX XTMP 9 sAU a 
64 63) FE. | 
ON7650 000017 7402 11 000 6370 1.BPU2 STX XTMP sBPeTOQT=BPBASE sXPTR *SET TIMER QUANTUM 
; ON7651 6 4 6371 LXL MP oe 99P, aa 
0N7652 000002 6002 04 000 6322 cnn, TEE 291C 
— 097653 O0000! 4402 Il 000 6373 T.RBPUS SXL MP sBPe TAL=BPBASE sXPTR UIN 
007654 003527 7102 00 010 63274 TRA EX1Tl *SUCCESSFULLY CHANGED | Hl 
6325 = 
6326 * ENTRY POINT 21 ROUTINE ENABLE NEW PROCESS WITH B PRIORITY 
63277 * 
63278 % XORBJ = PROCESS TO ENABLE 
6379 * A = ZERO 
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Ch AOS -S B PRIORITY 
. 9¢ 
6330 * gg 
007655 6331 BPEN FQU % | ve 
007655 006144 4706 07 O00 6332 LDP P.SNB*SDeSNBeDL se 
ON7656  O00000 2 4 0. 6333 LDA *XOB 
0N7657 QO007T7 2362 07 O00 6334 LDO =O77sDL 
097660 000000 6212 00 000 6335 FAX XPTR 0 | es 
ON7661 016300 5202 01 000 6336 RPT BP.NSZelsTZE *CHECK IF IT TS REGISTERED IN TABLE ne 
097662 000010 2112 11 O00 6337 1.RPFI1 CMK BP. SNB-BPBASE sXPTR nse 
097643 000007 6012 04 7672 6338 TNZ BPFNA$ S# NOT IN START#UP LISTe CHECK 1TSS 00000020 me 
| 007664 6339 BPFNR NULL : 
097664 006036 4716 07 000 6340 | LDP P. Aa See 
0976465 OOOOI] 1212 03 000 6341 T.BPF2 SBLX TRs Tels ieee amare ee 
0N7646 100000 4413 14 000 6342 Sxl. VOT Ena xOauAes PpP SET CLASS B INDEX 
097647 000100 2362 03 000 6343 &4LDQ ZBPR 0 »D - x) 
097670 100000 2563 14 000 6344 ORSQA »XOBJ»PePDP “i 
ON7671 O00 7102 10 6345 TRA XeFNEWS | os 
007672 000021 2362 04 7713 6346 BPFNA LDQ BPMASK9$ SNUMB WAS NOT IN START#*UP LIST» SO 00000020 <@ 
097673 OO00021 2112 04 7714 6347 CMK BPTSSCe$ — CRECK TO SFE TF IT TS A TSS COPY 00000020 ~~, 
097674 000707 6012 00 O10 6348 TNZ XaFNEW41 « SNUMB NOT "TSeq 00000020 
ON7675 000020 2352 04 TTI5 6349 CDA BPTSS9§ VUMB WAS FOR F OPYs NOW ! see lve 
007676 777777 2362 07 O00 6350 LDA ate "TSS" WAS ENTERED IN LIST AT STARTUP 00000020 = 
ON7677 6 6351 E 
097700 016300 5202 01 000 6352 RPT BP. NSZs1eTZE 00000020 
OA7701 O00 2112 0 6353 Te CMK BP. = ? - 
O0N7702 000707 6012 00 O10 6354 TNZ XeFNEWS1 ¢ DENIAL *CUZ "TSS" NOT IN TABLE 00000020 we 
097703 76000 3002 03 O00 6355 CANXO ZOTTO0009DU 3 ROOM IN TAR 0 ADD TR YUMB O0000020 3 
097704 000707 6002 00 010 6356 TZE XeFNEW+1 ¢ DENIAL *cUZ NO ROOM IN TABLE 00000020 s 
ON7705 5 I 635 : 
0ON7706 OO00000 2342 11 000 6358 SZN sXPTR COMTINUE SCANs BUT FOR HOLE | 00000020 
ON7707 OOOTOT 60i2 OO 10 6359 NZ KeFNEW+ © DENTAL *CU7 NO HOLE IN TAB 00000020 
0N7710 000000 2353 14 000 63460 LDA O+XOBJsP.SNB 00000020 
ON7711 7552 Il 000 6361 A =1eXPTR OUND A AOLEs OR VOMB IN ND 0000020 
ON7712 777752 7102 04 7664 6362 TRA BPENB?S GO PRETEND WE FOUND IT THERE 00000020 
0) 13. O000 O00 006 63263 BPM K Oo D000 oye TASER Ory TOMB VUU0DUUZCD 
097714 636200530000 000 63464 RBPTSSC BCT 1+TSO$00 CONSTANT PART OF TSS CcCOPy NAME 00000020 
ONTTTE i 6365 B T ry 
007716 6366 eOPTE. BP 
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a eg aM s® 
9S 9S 
ss 007716 6368 eOPTS. APsAPRIOR ss 
@ .: 6369 % vs 
es 6370 * PRIORITY CLASS A CONTROL OPTION an 
zs 6371 %* zs 
Oc 82 DATA FOR CLASS A CONTROD eee @ 
os 6373 %* og 
ep 000007 6374 AP.NSZ SET 7 i *NOe OF A PRIORITY PROCESS ie 
Dee 6375..~—~O~C~‘“‘i CS MAXIMO VALUE!!U!U!U!®!W!U!W!WUWUWUWUWUWUWUWUWUWUWUWUUUUUUU 
Ly 000002 6376 AP.FESZ SFT 2 /* PJT TABLE FNTRY SIZE Ly 
ov 6377 eS 
@: 000020 6378 AP.TSZ SFT AP. ESZ#APeNSZ+APSESZ /* SIZE OF SDePJUT SEGMENT | 
vw 6379. INCLUDING DUMMY ENTRY FOR LEVEL 0 on 
ep 6380) AND GATE WORD 
@. ; | 6381 
Ip 0N7717 000000 0001 00 O00 63Ra2 AP.TAL TALLY a1 *TALLY OF A PRIORITY PROCESS 
ov 4323 *ID a WHEN A=PRIOR PROC ES5 AC TIVATED 
@ « 6324 *DI = WHEN AwPRIOR PROCESS DEACTIVATED 
ee CO BBR TAC LY RUNOUT = WHEN THERE APPEARED 2  — 
Le 6386 ONE A=PRTORITY PROCESS 
@« | 6387 
se : 097720 000000 0000 00 000 6388 APsACT TALLY 080 *#TALLY OF A#@PRIOR AND ce 
ae BBQ ENABLED @ BY RMAMPRIOR PROCESS ig 
@ «: 6390 *ZERO = NO PRIORITY PROCESS» SO DELETE «® 
ze 6391 SYSTEM PRIORITY ee ee 
le 6392 *NONwZERO s THFRE ARE SOME ERI ORLY 
@ «: 6393 C o MAT Y Y 
6z 6394 
ez ONnTT?1 H00000 d00000 olele 639 AP LFLG ~RO RPC 0 HONOR Y M PRIOR Y FRO 
@ 6396 *ZERO = A#PRIORITY DISPATCH HAS 
oz 6397 SREINCHETS TO LEMIT 0 ES 
gz 6398 *NON@=ZERO = AwPRIORITY DISPATCH 
@ :: 6399 TS ALLOWED VET 222 
62 6400 * STZ = ON A=PRIORITY DISPATCH IN REDSPp s 
zz Eb 40OL0DO0DOCOCOOOMRCCCCOSED FAP. RASS RE AATHEDD TO AP DS gg 
@ | 6402 * STC] = ON NONW@A=PRIORITY DISPATCH IN REDSP z® 
0z 6403 — oz 
61 007722 000000 000000 000 6404 APeCNT ZERO *COUNT OF CONTINUOUS DISPATCHES 
gI 6405 FOR A=PRIOR PROCESS 
aii 0nN7723 oO00000 ocon000 000 6406 APeDSP ZERO 9 *% s* LIMIT OF CONTINUOUS DISPATCHES 
9L 40 aes 1 
@: 6408 (eCRNPC) #2 
vt 6409 , eg 
ei 100000 6410 AP.OPR BOOL 100000 *OPERATOR RESFRVED ENTRY 
Di 200000 | 6411 APeRVD BOOL 200000. £*RESERVED BIT ¢ ENTRY NOT EMPTY ——1@ 
un 400000 6412 as EXC BOOL 400000 *CURRENTLY ACTIVE FLAG . 
ol a1 
eo: 6414 Ri ROUTINE TO PUT A PRIORITY Hugs INTO QUEUE 
8 | 6415 * TF TT INACTIVE 9 VE AND COUNT UP AP.TA 
L 6416 * XePP1 TRA APPL 


@> 000000 6417 PPX SET om 
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Ck ALS Ss A PRIORITY 


en ent NN ttt 


000002 6418 PPY SET 2 
000001 6419 PePDP SET Pl 
007724 6420 APP] EQuU * ; 
ON7724 200200 3002 03 O00 6471 4CANX  PPXSZAPRYTOeZAPRWTsDU 000 gg 
007725 000002 6012 04 7727 6422 TNZ APP29 | | 
0097726 003335 7102 00 Se ee eee eee 
007727 6424 APP2 FQU 
007727 000200 3002 03 000 6425 CANX PB X57 NDT DU 
097730 000011 6002 04 7741 6476 TZF APP3 4% *NOT INACTIVE STATUS 
ON7731 1 1203 16 6477 & Xo ae 
0N7732 034000 3602 03 000 6428 ANX PPxseZAPCODsDU *SET A PRIORITY LEVEL CODE 
~ 007733 100000 2603 16 000 6479 ~~ ORX PPXe9eKPXsPePDP nn 
0N7734 200200 6602 03 000 6430 FRX PPX eZAPRIO+ZAPRWTeDU *ACTIVATE THE PROCFSS 
097735 100000 7403 16 000 6431 STX PPXeeKPXe 
0N7736 000002 0112 56 000 6432 1.APP1 NOP AP.ACT@APBASE s ID | 
on 37 OO0001 6 OOO 643 TeArP NOP AMY. TALPMAKM ESF 9 p dN Je NUDe OC “UV 
0N7740 000007 6066 04 T7747 6434 TT™N APP4eS *TALLY RUNOUTs SO GIVE SYSTEM PRIOR 
7 007741 6435 APP3 FQU ¥ —— 
097741 040000 3152 03 O00 6436 CANA PS.DWT »DU 
OA7742 00 6012 00 O10 643 N Ppa KALREADY IN QUFUE MOV ORWARD 
ON7743 777756 2342 04 7721 6438 SZN AP.FLGeS *DISPATCH COUNT REACHED TO LIMIT 
¢ 4G ere fy J OO ) 4 OQ X . PP A YU wig % 4 Me 
0N7745 000200 2202 03 000 6440 LOX PPX eZAPRWT sDU *PUT IN QUEUE BY INACTIVE PRIORITY 
ONT746 OO3337T T7102 00 O10 6445 = TRA BRI Bg 
007747 6442 APP4 FQU ts 
ON7747 OO0OO0C21 7402 04 T7770 6443 Srx “PPXeAPeSVes. °C ee 
ON7750 000022 2362 04 T7772 6444 LDA APRPTX9$ aes 
ON7T751 OOO600 620 O46 O00 644 ~AX(0 eQl REPEA TNO EX eg 
0N7752 000001 6222 00 O00 6446 FAX PPYel 7 2@ 
DAT TS OO00TS ® ba 4 DA APSYS 9S YSPR B UPPER AND COWER Se 
| 007754 6448 APPS FQU * . 
ON7754  OOO0N0 O2 0 000 6449 RPTX ’ RFSEARCH FOR BF YSPR | 
0N7755 100000 3153 12 000 — 6450 CANA sPPYsPePDP 2 
OOT7T56 O00004 B00C 04 T7662 GG51L TOE BRB GB Bg 
ON7757 177777 2553 12 COO 6452 ORSA ~1ePPYsPePDP *SET ZSYSPR BIT .@ 
ONTT6O 2 00 6453 C = 6 ’ | ree Wa 
ON7761 777773 6012 04 7754 6454 TNZ APP5 9% *GO CHECK LEFT a 
| 6 6455 APP6 FOU ¥ ne 
ON7762 000001 1362 03 O00 6456 SBLO LshU *CHECK MULTIPLE OF 256 
) &: &U me .  *) » N tT) Pi: e - ¥, Y 7, Zs anaes sete 7 
ON7764 O00004 2222 04 7770 6458 LOX PPY sAPPSV9S *RESTORE  ) 
ONTTAE GOOO00 2353 16 000 6459 LDR 9K PK 
ON776&6 100000 2203 16 O00 64640 LDX PPX esKPXePePDP 
OOTTET TTTTS2 T102 04 TT4T 646T TRA AP 
; 007770 6462 APPSV BSS 1 | g 
ON TT? 1 orerelelemm mererezere 000 =~6-G4443 APSYE YOPReZOYOPR FPDP ENTRY YSPR CF DATA an aaa 
on7772 o00000 oon0000 000 64464 APRPTX FERD *REPEAT COUNT » SET rN INITIALIZE & 
644A 
| 6466 * ROUTINE TO PUT A#PRIORITY PROCESS IN INACTIVE STATUS 
6457 eo REDOIL TRA CAPRI OC ee a ene ary 


6 
8 
Z 
9 
S 
v 
& 
¢ 
L 
9 


: 
@ 
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Ss 
CLASS A PRIORITY is@ 
9S 
6468 * ss 
000001 6469 PaPDP SET P} ~@ 
| | 007773 6470 APTL  FQU # _ 
ONT773 100000 2003 16 O00 6471 LOX PPX 0 sKPX9PePDP ag 
007774 200000 3002 03 000 6472 CANX PPX sZAPRIOsDU *CHECK IF IT HAS A#PRIORITY @ 
007775 003356 6002 00 O10 6473 Ege ae PTE ee . a 
007776 200200 6602 03 000 6474 ERX PPXsZAPRIO+ZAPRWT sDU ——— 
ON7777 743777 3602 03 000 6475 ANX PPXe"ZAPCOD=leDU  *SET INACTIVE STATUS 3 es 
010000 100000 7403 16 000 6476 STX PPX seKPXePePDP a 
010001 OOOO0] Olle 54 000 6477 T.APTI NOP AP. TAL “APBASE 9D RDECREMENT NO. OF ACTIVE PRU ov 
010002 000002 0112 54 000 6478 1.APT2 NOP AP .ACT=APBASE DI ~ @ 
010003 003356 7102 00 O10 6479 TRA PPTLI * 
6480 | * 
HBL  OUROUTINE TO DELETE A=PRIORITY FOR EPII/GEWAKE | 
6482 * XeDSCN TRA APDCN iv 
64A3 % 5 
000002 6484 XPDP SET 2 « @ 
000001 6425 PePDP SFT Pl 36 
010004 6486 APDCN EQU * 

- 010004 006036 4716 07 000 64R7 LDP “Pe PDP * SDePDP ODL .@ 
010005 100000 2223 16 000 6488 LDX XPDP» sKPXePePDP - 
010006 340200 3022 03 000 64RA9 CANX XPDP s ZAPRIOFZOYSPR*ZAENBDFZAPRWT DU 
010007 001164 6002 00 010 6490 TZF ED4 | | "e 
010010 200000 3022 03 000 6491 CANX XPOPeZAPRIO*DU 
010011 000005 6002 04 10016 6492 TZE APNC1 9S ie 
010032 200200 6622 03 000 6493 ERX | XPNPeZAPRIO+ZAPRWT e000 og 
010013 743777 3622 03 000 6494 ANX XPNPes-ZAPCOD@1sDU *RESET PRIORITY LEVEL - 
010014 000002 Oll2 54 000 6495 T.APhl NOP AP.ACT#APBASEsDI gg 
010015 000001 0112 54 000 6496 1.APN2 NOP AP. TAL@APBASE*sDI #*COUNT DOWN NO. OF ACTIVES 2@ 

010016 6497 APDC] EQU ¥ ae 
010016 040000 3022 03 000 6498 CANX XPMP »ZAENBD eDU *CHECK IF TT HAS ENABLED PRIORITY sz 
010017 000003 6002 04 10022 6499 — TZF APDC2 0S 0 z®@ 
010020 000002 0112 54 000 65n0 1T.APn3 NOP AP.ACT@APBASE»sDI *COUNT DOWN NOw OF ACTIVES os 
010071 ‘eo 0 OOO 6501 LL NY X AePDKR er lLeZArCOD ¢DU AIND K e 2z 

see | 010022 6502 APDC2 EU * | 2® 
016092 00000 30272 O 000 = =—65N: CANX XPHP s ZSYSPR e DU R SY PRYOR Y PRO a 
010023 000004 6002 04 10027 6504 T2F APNC39$ NO si 
010074 650 “ 4 TY PRO is ot @ 
010025 000002 6012 04 10027 6506 TNZ APNC3 9S LEFT IN ACTIVE ii 
GOTOO?P6 -) C Y) exeie ‘e AN X XVOD 9 @, ive tg LU or J TMK TUR 

oo 010027 6508 APNC3 EQU * 

010027 100000 7423 16 000 6509  5TX XPDPeeKPXsPePDP | 7* RESET PDP FNTRY a 
010030 001164 7102 00 010 6510 TRA ED4 
6511 * 
6512 * ROUTINE TO GIVE ENABLED-A-PRIORITY FOR POP TO SWAP IN A»PRIOR . 
onl * Pa as ol 
6514 * - 9 
ia 9 OI003l 6515 APFR FOU. * : 
010031 006036 4716 O07 000 6516 LDP P.PDP»SDePDPeDL | L 
010032 003073 2202 00 O10 6517 LDX XTMP eEBMARK T® CHECK HE REQU R » @ 
S 
v 7 
: © 
e 
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8S 
CLASS A PRIORITY @ 
9S 
010033 100000 2363 10 000 6518 LNA sXTMPoPePDP HAS A#=PRIORITY e 
010034 200200 3162 03 000 6519 CANO ZAPRIO+ZAPRWT 9 DU ~@ 
010035 003062 6002 00 O10 6570 X.APFB TZE EB10 *NOe RETURN A 
: 6521 1/0" G zs 
010036 000077 2362 07 000 6522 LDQ =0779DL /* GIVE TOP URGENCY TO SWAP IN a ® 
010037 400000 2563 10 000 6573. ORSQ. eXTMPsP.PST THE PRIORITY PROCESS - 
010040 000002 0112 56 000 6524 TsAPF NOP AP.ACT©APBASEsID  *COUNT UP FNABLED PROCESS (POP) a 
BiTOOcT Os0000 2202 05 000 heoe LEI DRENED EDU en re ee 
0100462 100001 2403 00 000 6526 ORSX XTMPeePNPOPssPePDP *MARK ENABLED BIT ie 
010046: OO 506 0) exe 6 Fr Xe AP RA = bh 61" JN « 4 : a ov 
6528 * « @ 
B59 * * N 6 V YABLTD-AePR IOR Y R - 
6530 * DELETE ENARLEDRA=PRIORITY ( IF ENABLED BY ZERO URGENCY ) 7 
6531 % X.FR8 TRA APEE —,@ 
6532 * 7 
6533 * MUST NOT COST EBX A ov 
000002 6534 FRX SET 2 « ® 
On000 6535 P,.PDP SET Py ee 
010044 6536 APFE EFQU * Je 
010044 0000 022 0 000 653 CANX 5X93 9DU RCHECK ATS NTER=PROCESS ENAB a 
010045 000027 6012 04 10074 6538 TNZ APFE39$ *NOe ALARM OR NEW Be 
S10046 006036 ame O00 6539 p Pe PDPs aDePDP oD ee 
010047 200044 2363 17 000 6540 LDQ eKLPRGoPNoPeKL = ) 
010050 000002 6012 04 00 6541 N 2 aT =RU e MU A VTERRUPT RAND ee 
01005] 000001 6362 00 000 6542 FAQ «PNPOP HANDLER = DNET i: 
01005? 100000 2363 O2 6543 LDO 2QUePe 3 3 | oo @ 
010053 200200 3162 03 000 6544 CANO ZAPRIO+ZAPRWT sDU IF IT HAS AePRIORITY a 
T0054 G 65G F FES¢ os 
010055 770077 3152 07 O00 6546 CANA #0770077 Di. *WHICH REQUEST. ENABLE OR DISABLE 2@ 
010056 SO0O1LO 60 @ QO066 654 F Ab 95 RUR q c RO e () ‘Vs es 
010057 100000 2363 16 000 6548 LDO eKPXoPo PDP 
010040 040000 3162 03 000 6549 CANQ  ZAFNBD*eDU~+7® IF IT HAS ALREADY ENABLE PRIORITY -@ 
010041 000013 6012 04 10074 6550 TNZ APFE39$ SKIP 62 
HTO0a2? D40000 yams olelommmm: ORO AFNBD DU MD A=ENABLED PRIOR y _ zz 
010063 100000 7563 16 000 6552 STO sKPXePePDP 2@ 
0100464 O00002 OlLl 6 OO0 655: TaAPFI NOP AVP 7" APGR 910 OUIN UP NOs O - V PIC LOK t 0z 
010045 000007 7102 04 10074 6554 © TRA APFE3e9$ a 
| S1U0Gh “ha5k ADECs Cou ee ee ee ee ae 
010046 100000 2363 16 000 6556 LDQ sKPX oP ePDP *CHECK IF THE DISABLED PROCESS HAS i 
ep moreys 040000 Be U O00 36 AN AFNBOsDU TABLED PRITIR SB 
010070 000004 6002 04 10074 6558 TZE APFE39$ *NOe SO NOTHING TO DO » @ 
Ob Tere O4O0000 B74 O O00 ; KEFNBDe DU wy cae OLS “NAR Py -PRTOR atts. . 
010072 000002 0112 54 000 6540 T.APF2 NOP AP. ACT=APBASE sDI AND COUNT DOWN 
010073 100000 7563 16 000 6561. STQ KP Xa Pe PDP i) 
010074 6562 APEE3 EQU % | it 
OTOU O030 02 00 UI0 X,APFE TRA Ker BS rCHET? TTRFR OP N | — Fe 
65464 * ; © 
BBB OR OCOUROUT NE TO BYPASS COOP CHECK eg 
6566 * 1eSLCT TRA APLPCK : 


6567 * SS SSS 


Oem A OM ST mM WOON 
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: as 
cLASS A PRIORITY is 
: 9S 
000000 6568 PePNP SET PO ss 
_— =" 010075 6569 APLPCK EQU % ag 
010075 006036 4706 07 O00 6570 LOP P. PDP »SD«PDP »DL | Be 
010076 000000 2363 16 000 6571 d}e) wKPXoPePDP AECK PRIOR 3 os 
010077 340000 3162 03 000 6572 CANQ pADR1O+2SYSPR*ZAENBD SDL | F 
010100 0015 6002 00 O10 6573 TZE SLCT4 NO PRIORITY © CHECK 2002000 
010101 001466 7102 00 010 6574 TRA SLCT16 PRIORITY = SKIP CHECK 
6575 % - 
6576 % SET TIME Ms AND CHECK A=PRIOR COUNT as 
6577 % TO HY se 
6578 % XeRNLA ial APRD1 ee 
6579 * vb 
000001 65820\P.PDP SET Pl | * 
000000 65a1 P.PJT SET PO eae 
(010102 6582 APRD1 EQU * tv 
010102 100000 2363 16 000 6583 LDO KOMP OPDE.. Lg a ee eB 
010103 240000 3162 03 O00 6584 CANQ ZAPRIO+ZAENBD 9 DU mm ) 
010304 000004 6012 04 10110 6585 TN2 APRD29$ ee 
010105 777614 5542 04 7721 6586 | STC] APsFLGe$ /* NON A=PRIOR»s ALLOW A»PRIOR DISPATCH - 
610106 001615 2362 00 010 6587 XeAPRD LDQ TOTM £,Y* IF B=PRIORTTY OPTIONs CHECK IT °° ©  ©§©§@§@© 0 
010107 001601 7102 00 010 6588 TRA XeRDLA+1 NO BePRIORe RETURN - 
So OLOTTO——CGSBRG APRDZ COU 9g 
010110 777612 0542 04 7722 6590 AOS AP.CNT9$ /* COUNT UP AwPRIOR DISPATCH | 
010111 611 2352 04 22 6591 LDA 2CNTs | cease 
010112 777611 1152 04 7723 6592 CMPA AP.DSP e$ /* CHECK CONTINUOUS A#PRIOR 
010113 000003 6022 04 10116 6593 TNC APRD3 9 COUN M 
010114 777606 4502 04 7722 6594 STZ AP.CNTo$ | es 
010115 604 450 () 4, Ve 6595 AP. 73 A=PRIOR DISP? TR ELCHED . —" 

. 010116 6596 APRD3 FOU * z® 
010116 200000 3162 03 000 6597  —  CANQ ZAPREOsDU TE 
010117 000003 6012 04 10122 6598 TNZ APRD49$ 
010120 001615 2362 00 010 6599 LNA TQTM LFD PR A 
010171 001601 Eig? 00 010 6400 TRA XeRD1LA+1 TIME QUANTUM ie 

. 2 64601 APRDG EQU *% zz 
010122 006040 ioe 07 000 66n2 LOP P.PUT*#SDePUTeDL rw 
010173 6 640 =O379 ——FR-TSOCATE PIT ENTRY POINT ERO 
010194 000001 2363 06 Q00 644 LNQ LeQLePePJT AND PULL OUT TIME QUANTUM 61 
010125 O 3762 00 640 ANO “le ~APe APs : CE oe ee 
010126 001601 7102 00 O10 6606 TRA XeRDLA#1 i 
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Ne a 
8S 
CLASS A PerReItIOoORITY de 
9S 
6608 * | 
6609 * ENTRY POINT 21. ENABLE NEW PROCESS ROUTINE =e 
6610 % CHFCK PRIORITY FOR THE PROCESS - 
6611 * XeFNBP+l TRA APENB 2g 
a a a apne ct ee a Se ee et a oe ne ee ince tent on ch be to ee :$ 
000004 6413 XORJ SET 4 ema 
000000 6615 P.SNR SET PO | ay 
000000 6616 PePIN SET PQ | i 
Sooo only eeeDe Set SS SSS 
010127 6618 APENR EQU * a 
010127 000275 7022 04 10424 6619 © TSK APLSTXeAPLYST eB 
010130 66270 SHUT e DSP iS 
010131 006036 4716 OF 000 6671 © LDP > PePDPeSDePDPeDL 2 
010132 100000 2363 14 000 6422 LOO »XOBJ*PePDP 7 
010133 200200 3162 03 000 64293 © CANQ  ZAPRIO*ZAPRWT DU 
010134 O00016 6002 04 10152 64674 TZE APFEN129$ _ 
010135 006040 4726 07 000 6475 }=3LDP PePUTsSDeP ITD 
0101326 000000 6212 06 000 6476 FAX XPTResQL 
010137 OOO0017 3612 03 O00 6477 ANX XXPTRel5eDU °°» © | 
0101460 200001 2343 11 000 6428 S2N 1 eXPTReP,.PUT /* IS THE ENTRY ACTIVE 
O1To141 6 4 46 66? L F a: 
010142 200001 7203 11 000 6430 LX, XTMP ol eXPTRePePUT 
010143 000001 7402 04 10144 6431 STX OX TMP APPEND SO 
010144 000000 1042 03 000 6432 APFN1I CMPX XOBJ9** eDU /*® CHECK KPX IN PJT 
010145 000027 600 ra 174 6633 5 ZF PEN5 9 S Cc - 
010146 6434 APENI1L EQU % | 
010146 200000 62 03 O00 663 CANQ APRIO DU VE NOW 
010147 000003 6002 04 10152 6436 | TZE APEN129$ No 
OTOT5O D000] 000 6637 T.eAPRY NOP AP. TAL@APBADSE 9D “a 
010151 000002 0112 54 Q00 6438 TeAPR2 NOP AP .ACT@APBASE eDI 
| ~~ OLOL5S — B39 APENT2 FOU 
010152 000027 3762 04 10201 6440 ANQ APFENMK 9$ /* RESET PRIORITY FLAG ee 
5 Ad F 9 ae 22 
010154 6442 APENIS5 EQU % 2@ 
O10154 6024 4706 664 dD P 75De Dl career 
010155 000000 6352 14 000 6444 EAA »XOBJ | 
OVOL5H OOODOS F352 00 DOD GAGS 
010157 003075 7526 00 010 6446 STWS EBWSV *SAVE WSR4a7 
O1OTAN =QOO000 e 000° 644 DW eaAUesPePID RCHAN WOR : 
010161 600005 2353 00 000 6448 LDA eSATTRoePeSSA *GET ATTRIBUTE = TO CHECK SYSTEM 
ep ee ee = eRe ee hve. ee ye ny ne 
010162 003075 7726 00 010 6450 LOWS EBWSV *RESTOR 
070163 000400 2 0 000 6651 CANA eASYSPeDU R CHECK Y M PRO 
0101464 000006 6002 04 10172 6652 TZF APFN3 9% AND SYSTEM PRIORITY IS GRANTED a 
OTOTS TO00000 07 000 G45 A YSPReD YE poietic “a 
010166 777532 2342 04 7720 6454 SZN AP.ACT 9$ 4* CHECK JF THERE ARE ACTIVE , o 
OT0OLT46” 00002 60 0 0 645 TF APFN2Z 9S PRIORITY PR NOW a 
010170 100000 2752 03 000 6656 ORA 7SYSPRsDU *YESe SO ASSIG SYSTEM PRIORITY NOW 
: oe  ———SOLOLTL  6A57 cARPEN2  EQUS ~~ GR eee aa 
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8S 
CLASS A PRIORITY s@ 
9S 
010171 100000 2553 14 000 6658 __ORSA »XOBU»PePDP a 
010172 BAGG PENG? SEOQU ieee a a a a EE ee ES ee Pare ge Ewer ae. ee a 
010172 6460 OPENe DSP €S 
010173. 00070? 7102 00 O10 6661 XeAPEN TRA XeFNEW+1 7 * IF CLASS B OPTION CHECK IT ag 
| 010174 6662 APENS FOU % o@ 
; 010174 6663 SHUTe PST os 
010175 Q00077 2362 07 O00 6464 LDA =Q779DL ey 
010176 400000 2563 14 000 6445 ORSO »XOBUePePST ; o @ 
010177 6666 OPENe PST Ly 
010200 777754 7102 04 10154 6667 TRA APENI5e$ Pasty se ee Bm Renan s ee Be Sat Se CE ER reas 
010201 543577 743760 000 6448 APENMK ZERO © 1 *ZAPRIO=“ZAPRWT=ZAPCOD s=1=ZAPCON-15 oy @ 


nn ttt A enasnnmanasnansnresmmnseneuas-nnunenapanaenesnienttntuvnaten eastern ttt NARI 


vy 
\ 


Sr errvanen nmr enemanmremsomennanumanseeerentnnnterattaetaatnn tt A A er ERE ere 


1248T 02 12727779 09,322 H6600J7.057 Gcns IV 4VX  DpISPATCHER 791219D1SP PAGE 189 i 
8S 
cLASS A PRIORITY a 
‘ . 9S 
46670 * Ss 
6471 % ENTRY POINT 22 ROUTINE - 
6672 * UPDATE ASSIGN AND DELETE PJT ENTRY ~ 
6673 * zg 
6474 REQUEST IS IDENTIFIED BY XID INDEX ® 

TO HTH R!!!”~”~™””” OK OO UMAKE NEW ASPRIORITY ENTRY 
66476 * XIpn = ~1 REFERENCE A ENTRY ma 

BPE ROR bee? DELETE THE ENTRY gy 
6678 * i 

ee OCU. SOG To MT OE RO rn ee ae ED ET eee en aa 

010202 6680 APJT FQU * mm ) 

010202 000000 6202 10 000 GéRl FAX XINeeXID | S 

010203 000052 6042 04 10255 6682 TMT APREF 9% 

010204 000100 6002 04 10304 6683  TZE CNG Ses ee, eer ee eee ee 
66846 %* te 
66R5 * DELFT =PR ~ 
6686 * ARGUMENT XID = PRIORITY POSITION CODF «@ 
64687 * = % at + ae 
6688 * 

000000 66R9 PaSN1 SET PO 
010205 6690 APDLT FOU * | 
TO20 OOOO yo e 000 669 "MP X KID sAPaNSZel DU AECK PRIORITY PO ON 

019206 003527 6032 00 010 6492 TRC EXTT1 TOO HIGH = ERROR 

010207 000000 6362 10 000 6693 ~~ FAQ sXTD 0 RSEAVE POST TYON CODE 

010210 000001 7362 00 000 6694 ols l /* OFFSET ADDRESS 

O02: ~~ 6695 -- ---SHiT.. DSe ©" ee eee eee Peg en eee 

| | 010212 6696 APDLTT FQU # /* ENTRY FROM TRACE NDUMPER 7 

OTO712 000254 TOl2 04 10466 6697 TSK LePSTST 9S 

010213 200001 2353 02 000 66498 LDA 1sQUePePUT 2®@ 

010214 000036 6052 04 10252 6699 TPL “APPLTE*?S  ££*® NOT ACTIVE ee. See aN ve 

010215 000000 6242 05 000 6700 FAX XOBU9 9AL sz 

010216 300000 3752 03 000 4701 ANA AP.RVD+APeOPReDU | 2 ® 

010217 200001 7553 02 000 67n2 STA LsQUsPePUT /* RESET APeEXCe TOQTMse KPX : = 

010220 100 2 00 6703 CANA 2OPR» 

010221 000003 6012 04 10224 67N4 TNZ APNLT19$ 

010222 200000 3152 03 000 6795 CANA AP.RVD»sDU ge 

010223 000003 6012 04 10226 6706 TNZ APOLT29$ /* RESERVED ENTRY » SNUMB IS NOT RESET ky 

| 010224 6707 APDLT1 FQU * ee et ge 2 eS i® 
010224 000077 2352 07 000 6708 LDA =0779DL tn 
O1027! POO000 000 6705 ANSA 9QUePer R TOMP ) ry 
010226 6710 APDLT2 EQU % a@ 

010276 0002 I 4 10473 6711 TSX sPJITOP.s Se ee a 

019227 006036 4716 O07 O00 6712 LDP sila y 

010230 1 2 4 671 ie Fe 7X0 1@ 

010231 200000 3152 03 000 4714 CANA ZAPRI9 »DU | /* IF ACTIVE NOW RESET COUNTER . 

STO23s>  ooon0 BO 0 02 B “ os ) ) ai 

010233 000002 0112 54 000 6716 Te ae NOP AP, ACT~APBASE #1 | 

010234 O T ra 6717 Te 9) 3 , ‘5 

010235 6718 ee EFQU * | | L 
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eB: 1248T 02 12"27"79 09,322 H6600J7.057 GCOS IV 4VX DISPATCHER 791219D1SP PAGE 190 2 
@ .: CLASS A PRIORITY 
9S ; 9S 
= 010236 100000 7553 14 000 6770 STA sXOBJ»PePDP 
@ :: ae 010237 6771 OPEN» DSP 
es 010240 006142 4706 07 000 6722 LDP P, SEL 
<T 010241 000000 2 4 000 6723 LDA XO 
eo: 010242 770000 3752 07 000 6794 ANA 20770000 sDL /* GET URGENCY ORIGINAL 
0s 010243 000000 6362 14 000 6775 FAQ *XOBJ be 
5p 010244 000022 7732 00 000 6776 LRL 18 
@: 010245 000022 7762 00 000 6777 QLR 18 ENABLF REQU 
Ly 010246 002733 7032 00 010 67278 TSX ENBLXsENABL lv 
oo” 010247 000000 Oll2 0? 000 6779  &4NOP9DL 
@: 010250 000154 7022 04 10424 6730 TSX —- APLSTXeAPLIST9$ 
= 010251 003524 7102 00 010 6731. TRA EXITO 
ep 010252 6732 \APDLTE EFQU * 
@. 010252 O00221 7012 04 10473 6733 TSX ZsPJITOP 9S 
010253 6734 OPENe DSP iv 
co = 010254 003527 7102 00 O10 6735 TRA EXTTL ee aa ee eS Say 
@« 6736 * «® 
oo oe 6737 * REFFRENCE AN ENTRY IN PJT BY KPX = 
LE 67348 * ARGUMENT XID = =] LE 
@ :: | 6739 * XOBJ = KPX OF OBJECT PROCESS TO CHECK IN PJT eg 
se 6740 * RETURN A = SNUMB se 
ve 674) * Q = J Y +1 , . ve 
@ : 6742 * NOTEe BIT 33-35 WILL BE PRIORITY POSITION CODE «® 
ze 6743 * MUST BE CONVERTED FROM ZAPCOD ag 
a a a a ne ge Se r 
@.: 000004 6745 XOBJ SET 4 ~ «® 
6z 000001 6746 XPTR_ SET 1 6z 
ez 010255 6747 APREF EQU ¥ ON ee ee a ee ee I ee ge ee 
@ 010255 777777 1002 03 000 6748 CMPX XIDe-leDU *CHECK REQUESTa« -@ 
oz 010256 003527 6012 00 010 6749 TN2 EXITl NOT VALID = SO DENIAL RETURN © 
sz 010257 000145 7022 04 10424 6750 TSX APLSTXeAPLISTo$ 
@ 010260 000206 7012 04 10466 6751 TSX ZsPUTST 9S @ 
€Z 0102461 000000 6352 14 000 6752 EAA *XOBJ ez 
zz 010262 000022 7712 00 000 6753 °° °&4ARL 18 ag 
@.: 010263 777777 6362 00 000 6754 EAQ “1 e® 
oz 010264 000002 6212 00 000 6755 FAX XPTReAPeE Sl 
at 010265 016300 5202 02 O00 6756 RPT AP.NSZ sAPeESZeTZE | 
@: £4610266 200001 2113 Il 000 6757 —  CMK igXetRorePal > ps SEARCH FOR THE ROX IN Pol ee 
a 010267 000013 6012 04 10302 6758 TNZ APREFE o$ NOT FOUND | i 
91 010 70 & OOO ‘2 9 AD =APe ™LEOXPiR rT ry 7 Y, ep = ws 
@: 010271 000023 7712 00 000 6760 ARL 19 | 
vl 010272 2’7TTT6 2363 Il 000 6741 LDQ - wAPeEoZeXPTRePePJT AND CONTROL DATA a 
ei 010273 000022 7732 00 000 6762 LRL 18 
@: 010274 000022 62 00 000 6763 QLR 18 
tH 010275 277775 2353 11 000 6764 LDA mAPsESZ=1eXPTRePePUT 
ou O010276 OOO 0 04 104 676 X wPUTOP ss 
@ : | 010277 6766 eEXTT  O9¢(AsQ) 
2 an INHTB  SAVEsON 
j 010277 000002 6306 04 10301 EPPRO *#26$ 


@: 016300 700006 7103 00 000 TRA eCREXTe9ePeG 
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CLASS A PRIORITY mn 

010301 001400 000000 #4000 ZFRO eRGSO a 
INHTB RESTORE - 

010302 6747 APREFE EQU * ES 


010302 OOO1f1 7012 04 104 6748 2JTOR oS zs 
010303 003527 7102 00 010 6769 TRA EXIT1 is 
6770 * os 
6771 % MAKE UP NEw ENTRY IN PJT TABLE iy 
6772 * ARGUMENT XID =. 0 ue 
6773 * XAPL = PRIORITY POSITION COnE - 
ee ee i Se eC OP ee OPERATOR REQUEST 8 °° 
3 6775 * Q = TIME QUANTUM IN MS ( 817 ) | | & 
6776 *& TI ZERO9 STANDARD TIME vy 
6777 * A = SNUMB IN BCD - 
6778 * | 
000003 6779 XAPLVL SET 3 ty 
| O00001 6780 XAPL SET 1 ee OP eee ee 
000001 6781 XPTR SET 1 | 
000000 6782 XTMP SET 0 
010304 6783 APNEW EQU * 
010304 000000 6232 11 000 6784 FAX XAPLVL-9@XA | } 
010305 OOO1L17 7022 04 10424 6785 TSX APLSTXsAPLIST9$ /* CHECK PRIORITY LIST a 
010306 006144 4766 OT O00 6786 LBP P.SNBsSDeSNBoDL a = ” | ve 
010307 OOO0077 2362 07 O00 6787 LDQ zO77eOL 
010310 600214 2353 00 000 6788 CDA we STMPR a eRe SSA FR SNM 
010311 000112 3752 04 10423 6789 ANA APSNB eS : 
010312 000001 6212 00 000 6790 FAX XPTRel 
010313 777457 7202 04 7772 6791 LXLo APRPTXe$ 
010314 Q00000 O02 0 000 6792 RPTX ° JOR FOR TH TOMA REGU > 
010315 000000 2113.11 000 6793 CMK »XPTRoPeSNB 
010316 000070 6012 04 10406 6794 TNZ APNEGS 9S 0 NOT FOUN No gg 
010317 777777 6242 11 000 6795 , FAX XOBJerleXPTR a 
4 4. east 2 OLOaeO..,. Ota.  -, Sale (05R).. .. > ee ee ae 
010321 000145 7012 04 10466 6797 TSX ZePJUTST 9$ es 
010372 OQOQOCQQVO 646 3 exe H79 8 We a@XAPLV i ieMERA K REWU a 
010323 000064 6052 04 10407 6799 TPl. APNE79$ NO 
010 24 DQ006 : ot U 0 6800 Dx XPTRelTeAPNZ 93 TTRY ADDR NR OPERATOR 
010325 000057 6002 04 10404 6a8n1 TZF APNE62 95 NO ENTRY » DENY REQUEST 
| 010326 6802 APNE? EQU ¥ 
010326 200001 2343 11 000 6803 SZN LeXPTReP.PUT /* ACTIVE NOW 
10327 Q000 6042 0 0 6804 MT APNE OG 9d y 
010330 OO00077 2362 07 O00 6805 - LBA =O779DL /* CLEAR SNUMB | 
010331 200000 63. 6806 SQ 3 Pe Se 
010332 200000 2553 11 000 6807 ORSA sXPTRePePJT - 
T0337 0000 000 6808 SXL XOBJeleXPTRePeP i® 
010334 | 6809 APNEOQ EQU x | 7 | bt 
44 600 f 0 O00 68.1 fe . TMP 99Pe i RET TROAW =k . ae 
010335 001777 3762 03. 000 6811 ANQ zO17779DU TIME SLICF a) 
0103346 O00002 6012 04 10340 6812 TNZ APNELleS on ; : 8 
010337 001615 2362 00 O10 6813 Looe TQTM /* NOT SPECIFTED =» STANDARD . % 


010340 68146 APNE! EQU rs 
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ss 
@ .: cLASS A PRIORITY ~® 


010340 400000 2762 03 000 6815 ORQ AP.EXCeDU ss 
@ . 01034] 200001 2563 11 000 6816 ORSO LeXPTRePePJT eee POTN a ae 
és 010342 000002 6202 00 000 6817 EAX XTMP 92 /* ACTIVATE AwPRIORITY CELL ee 
a! 010343 700302 7403 00 000 6818 STX OX TMPeeCRPIT99PeCR 0 ag 
@.: 010344 006036 4716 07 000 6819 LDP PePDP»SDePDP »DL @ 
os 010345 100000 2363 14 000 6870 LOO C0) =O 2) re 
6 010346 200200 3162 03 000 6821 CANQ ZAPRIO+ZAPRWTsDU /* IF ALREADY PRIORITy GIVEN 
@ 010347 000016 6012 04 10365 68272 © TNZ APNE59$ IT MUST BE UPDATE OF PARAMETER 
le 010350 777631 3762 04 10201 6823 ANQ APENMK 9$ /* RESET RELATED FIELD is 
» 010361 000200 2762 03 000 6824 ORO APRWTleD ov 
@: 010352 100000 7563 14 000 68275 STO »XOBJsPePDP »@ 
vy 010363 000000 6362 13 000 68276 EAQ eXAPLVL . vy 
eb 010354 000003 6052 04 10357 6827) TPL APNE3 9% 
@: 010355 000033 2342 04 10410 6878 LOO TeAPN20S 7*® OPERATOR REQUEST 
010356 000001 7722 00 000 6829 QRL 1 SO ADJUST 
ov . 010357 6830 APNE3 EQU * 
@: 010357 000021 7722 00 000 6831 QRL 17 
ee “010340 100000 2563 14 000 6832 ORS XOBJePePDP /*® SET PUY OFFSET 2 
us 010341 200000 2363 06 000 6833 LOA sQL sPePJUT 
@« 010342 000007 3762 07 000 6834 ANO =07sDL 
se 010363 000013 7362 00 000 6835 QLS a | 
ve SOS”™*~é~<“—sSt*::::,,:SC HG LOO 2563 14 O00 6836 ORS 9XOBJ9PePDP AND PRIORTTY V OD 
@«: 010365 6837 APNE5 EQU * 
“2 010345 000106 7012 04 10473 6838 TSX Ze PITOR —— ee 
le . 010366 6839 OPENe DSP 
eo: 010367 000000 6362 14 000 6840 FAQ »XOBJ ) -— pues ee = — 
6z 010370 770000 2762 07 000 6841 ORO 30770000eDL /* GIVE MAX URGENCY : | 6z 
ze  OlOS7L OUeTas 7032 00 O10 6842 TSX ENBLXeENAE AND ENABLE az 
@ 010372 000000 0112 07 000 6843 NOP sDL 2z® 
oz 010373 003524 102 00 10 6844. TRA EXT TO 92 
Gz 010374 6845 APNE& EQU * . sz 
@« 010374 000077 2362 07 000 6846 LDO =0779DL x® 
ez 010375 200000 2113 11 000 6847 CMK eXPTRePePJT /* CHECK SNUMB ez 
wz  Ot0376 OOO00UG 60I2 04 10404 6848  TNZ  £QAPNE6GcoS NOT MUCH DENY 2g 
@: == 010377 000003 7442 04 10402 6849 STX XOBJ sAPNE61 9$ 2® 
oz 0104090 200001 2363 Il 000 6850 LDa 1oXPTReP.PJT oz 
61 010401 000000 6362 06 000 6851 FAQ Ql. /* CHECK KPX si 
@: © 0106402° 000000 1162 03° 000 6852 APNE6I1 CMPQ = **.DU —~<—~S™S™~™—O— ee s@ 
Au 010403 777731 6002 04 10334 6853 T7F APNEOs$ fi 
91 . 010404 6854 APNE62 EOQU * 91 
@: 010404 000067 7012 04 10473 6855 TSX ZsPJUTOP o$ /*® TAKE DENIAL RETURN «a® 
“et. nn 0 110) 0)- Sy - : 1. Su) "1-2 PO) =) ~ 
el 010406 6857 APNE4#43 EQU *% 
@: 4010406 003527 7102 00 010 6858 TRA EXTTl 
i 010407 6859 APNE? EQU * Ml 
oo © Oo 010407 QO 1 6 6860 LS . OL 
@: 010410 000000 1162 03 O00 6861 1.eAPN2 CMPQ *% eDU /* IF IT IS OPFRATOR#*S ENTRY = | 
; 010411 777773 6002 04 10404 6R62 TZF APNEGe oS Y 2 
L 010412 000000 6212 02 000 6863 EAX XPTRsQU ‘ 
@> 0104613 200001 2363 02 000 6844 LDA 1QUeP.PJT .@ 
g S 
v vo! 
@ : : @ 
rd 
: 
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c#LAS S$ A PRIORITY 


ne A RN EA A A NN PT TNT A NE RR AL TNR Ee 


010414 200000 3162 03 000 6845 CANQ AP.RVD»DU /* IF IT IS NOT RESERVED ENTRY 
010415 777711 6002 04 10326 6846 TZE APNE2 9$ SNUMB IF FREE : 
010416 QO00077 2362 07 000 6867 LD 20779DL 7* RESERVED ENTRYe SNUMB IS 
010417 200000 2113 11 000 6848 CMK oXPTReP,Pvl SPECIFIED AT START UP 
010420 777764 6012 04 10404 6869 TN2Z APNE62 9S NOT MUCH DENY : 
010421 200001 4443 11 000 6870 SXL Xoptel eXPTReP.PUT a 
010422 777712 7102 04 10334 6871 TRA APNEO oS 
010423 777777777700 000 6872 APSNRB OCT 777777777700 
6873 * 
6874 * | 
6875 * UPDATE CLASS A PRIORITY JOB TABLE = CHECK IF ANY ACTIVE 
Seep ratt Spee sw Aide Tie eee Re Oe ENTRY SHOULD BE DEACTIVATED 00 
, | 6877 * 
000002 6878 APLSTX SFT 2 : 
000000 6879 P.SNR SFT PO . 
000000 6880 XTMP SET 0 ov 
000001 ——- 6BR1L XPUTP SFT 1 
000000 6882 XAPKPX SET a) ee 
010424 6883 APLIST EQU | 
010424 700302 7163 00 000 6884 &xXEC  eCRPJITeePeCR /* CHECK IF ANY ACTIVE. .|©}©”©63~X—™ © 
010425 000000 7102 12 000 6885 TRA sAPLSTX NOe SKIP LIST MAINTENANCE | . 
910426 O00040 D 0 0466 6886 SX - ob ry: : 
010427 6887 SHUTe PST «® 
010430 006144 4706 OT 000 6888 #&LDOP  PeSNBeSDeSNB D0 00 oe 
010431 000034 4502 04 10465 6889 STZ APLMRK9$ /* CLEAR COUNTER OF ACTIVES 
Oiosae OO0CIS Brie 0 000 bao ea Ra ST RA Ge ee es 
010433 6891 APLST1 EQU x ez 
O10433 200001 2363 11 000 6892 LDQ LexPJIPsPePJT 2 gg 
010434 000007 6052 04 10443 6893 TPL APLST29$ | /* THIS ENTRY NOT ACTIVE = SKIP ~@ 
010463 6 6 6894 FAX AP 99 9z 
010436 200000 2353 11 O00 6a895 LDA a teers be 
010437 000 2362 00 6896 LO =07 ~@ 
010440 000000 2113 10 000 6897 | CMK 2 XAPKPX »Pe SNB ez 
010441 O00 60i2 O 0G 6898 N AP YOM \ R STERED IN SY q ge 
010442 000023 0542 04 10465 6899 AOS “APLMRK $$ /* COUNT UP ACTIVES 2@ 
«010643 ~=~=)©)©6m69N0 APLST2 EQU * oz 
010443 777776 6212 11 O00 6901 FAX XPJTPo-APeESZsXPUTP 
010444 777767 6056 04 10433 6902  41TPN2  APLSTIeS  /* GO NEXT PUT ENTRY CHECK ©). i) 
010445 000001 6202 00 000 49n3 FAX XTMP 91 | “A 
010446 ejere I3G0 0 0465 6904 : PLMRK oS rk-UPDE 2 CRPIT e. ) 
010467 000002 6002 04 000 69n5 ie 2e1C NO ACTIVESs SO SET SKIP | 
O10450 O0000c 6202 00 O00 46906 AX XTIMPsc °C ee nn ney ne Spee Sennen 
010451 700302 7403 00 000 6907 STX XTMPoeCRPJUT+ePaCR 
— =. Of0ase-.- 6008 -  — -OPEN,. Pst... ee ee ne 
010453 000020 7012 04 10473 69n9 TSX ZePUTOP oS . 
UT0454 OU00U0 7102 IZ -00U 6910 ~~ TRA: "SSARL STA pr mp ae nat nam nr fr eatery citer t ene ings ge aN wee gag 
010455 6911 APLST5 EQU * wae 
010455 200001 2363 Il 000 4912 LDA TeXPITPePePJI 
010456 300000 3762 03 000 6913 ANQ APsRVD+APeOPR DU /* RESET KPXe APeEXCe FLAG 
010457 200001 7963 11 000 6914 SVQ LaXPTT PoP a PIT ~~, @ 


ELL 


e@ e- 
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8S 
CLASS A PRIORITY ~@ 
9S 
010460 200000 3162 03 000 6915 CANO AP.RVDsDU /* IF THE ENTRY WAS RESERVED as 
010461 000003 6012 04 10464 6916 TNZ AP| ST60$ AT START UP . LEAVE SNUMB OO 
010442 000077 2352 07 000 6917 LDA =0779DL & 
010463 200000 3553 11 000 6918 | ANSA  eXPITPsPePIT 
mai 010464 6919 APLST6 FQU * : <@ 
010444 777757 7102 04 10443 6970 TRA APLST29$ ‘i 
010465 6921 APLMRK BSS l 6Y 
6922 * ap & 
6923 * SHUT/OPEN ROUTINE | | . 
6974 % - 
010466 6925 PJTST EFQU x ov @ 
010446 006040 4726 07 000 6976. LDP P.PUTsSDePUT »DL i 
010467 6927) e SHUT eCRPJUTo2PeCR . ev 
010472 000000 7102 11 000 6978 TRA 2 = | 
010473 6929 PJTOP EQU % | : 
- 010473. 6930.” OPEN a CRP IT 0 oPaCR OF 
010475 006133 4726 07 O00 6931 LOP PekL eSDeKL sDL | «@ 
010476 000000 7102 11 000 6932 TRA Zz , o 
010477 6933 eOPTE. AP 


a 


we NAN MOM TF NH Oo N 


® ¢e- 
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010477 6935 2OPTSe TDsTRDUMP : 
6936 * 7 Pega Reto tren tpn Se Sear OO OTT eee ee eee eet 
6937 * THTS ROUTINE SUPPORTS TRACE DUMPER PROGRAM WHICH DUMPS SD+TT0 | a 
B38 * OR SDeTTY SEGMENT ONTO TAP XCHANG Rt ; z 
6939 * ,@ 
—-* 6940 % | 1. POST TO THE DUMPER IN TRACE@PUT ROUTINE TE oe 
6941 * 2e IF POSTED® DISPATCH TO THE DUMPER IN SELECT - 
ss 8942 & ”CS we SG EVE A@PRIORTITY TO THE DUMPER IN EP 63 ROUTINE ov ®@ 
6943 * 4. ENABLE OR DISABLE FUNCTION le 26 IN EP 63 ROTINE a 
6944 * 
6945 * oy @ 
6946 & EP 63 ROUTINEs v6 
6947 % ASSIGN OR DELTE TRACE DUMPER PRIORITY 
6948 * AND ENABLE OR DISABLE TRACE DUMP INTERFACE _ 
6949 * ly 
«BG ””™~™~CM~éSRFCAALL.~—SC AQ). = «SC PASSWORD aaa 
6951 % X4 = 0 ASSIGN PRIORITY AND ENABLF INTERFACE m ) 
6952 % = 10D PRIORITY AND DISARL N - 
6953 * : 
6954 * #CALL eMNISP263 | a - 
6955 * FRROR RETURN GE 
6956 * NORMAL RETURN ve 
6957 % «® 
— 610500 #46958 TRN6E3 EQU % | —= ae 
010500 700264 1153 17 000 4959 | CMPA eCRLCK »PNePeCR /* CHECK VALIDITY OF REQUESTER®s ‘ 
010501 003524 6012 00 010 6940 TNZ EXITOS EF NOT MATCH e DENAT RETURN nog 
010502 600003 1163 00 O00 6961 ~ CMPQ SALT 9 9PeSSA 3 
010503 003524 6012 00 O10 6962 TNZ ~EXTTO eee ee 
010504 000001 1042 03 000 6943 CMPX4 1eDU be WHAT REQUEST. | 2® 
010505 000054 6002 04 10561 6964 ZF TOLT eS PRYORTTY AND DISAB . 
010506 000000 1042 03 000 6945 CMPX4 »DU | ASST Gh PRIORITY AND ENABLE = 
010507 003524 6012 00 O10 6946. 1TNZ.EXTTO OTHERWISE. ERRORS ® 
6967 * €2 
H968 * A N} ajs OR \/ DING) Nt ZA ba \} » £ : vas 22 
6969 * | 2®@ 
010510 00132 2342 04 10642 6970 N DMKPXe HECK AFRE 1 RP DUMPER oe 
010511 003524 6012 00 010 6971 TNZ EXTTO WORKING ALREADYe IF SO» NO MORE, a 
I 6972 SHUT. SP aaa ETE 
010513 000137 7012 04 10652 6973 TSX ZeTTPST 9% =o ‘i 
() 14 O00 & U) U6 Se ’ STPUTs & ATA or. ry THT ; RFR > 
010515 007033 7552 00 O10 6975 STA XeTPUT XeTPUT IS TO POST EVENT 
OT0516 OOOTZT 2352 04 T0645 6976 CDR DSL CT BIN 
010517 001430 7552 00 O10 6977 STA XeSLCT XeSLCT IS TO CATCH THE EVENT i 
010570 000136 ?Ol2 04 10656 6978 TSX ZeTTPOP eS 2@ 
010521 00012) 7462 04 10642 6979 STX KPX se TDMKPX o$ /* LOGRON KPX ‘ 
0105?7?2 OUbh056 h Y VOU HORO Le re PDR sae FUE 
010523 000124 2342 ae 10647 69R1 SZN TDAPI o$ /%*® CHECK A#PRIORITY OPTION 
OT0524 5 60] 531 69R2 TNZ FleS | | | | 
010525 ecoate 6222 00 000 6983 FAX XPDP +ZAPRIO /* NO A@PRIORITY OPTIONs SO GIVE IT 
O10576 oA APs oPe = 
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SYSTEM TRACE DUMP ia 
OS 
010527 6985 OPENe DSP Ss 
010530 003527 7102 00 O10 69R6 TRA EXTTl SE a ge 
a, 01053] 6987 TDEL EQU * €S 
010531 OOOll7T 2 04 10650 69R8 LDA TDAPE 9 VE IT INACTIVE A=PRIORTITY fe 
010532 100000 7553 16 000 6989 STA sKPXsPePDP IT WILL BF ACTIVATED IN PUTPRQ 7 .@ 
010533 000000 6212 00 000 6990 TOEPT EAX £XPTRe¥* /*® GET PUT ENTRY INDEX FOR DUMPER 
010534 006144 4706 07 O00 6991 LOP P.SNB»SDeSNBeDL ms 
010535 000000 2353 16 000 6992 LDA *KPXePeSNB /*®* GET SNUMB —- | ~ »® 
010536 006040 4726 07 O00 6993 LoP PePUTsSDePJT SDL | 
010537 200000 2363 11 000 6994. LDQ oXPTR9PePIT 0S 
010540 200000 7553 11 000 64995 STA oXPTRePePJT /* SET UP PUT ENTRY v® 
010541 000100 3352 07 000 6996 LCA BO1TOODL CO ORESET BET SOQ mS 
010542 200000 3553 11 O00 6997) ANSA eXPTReP,PUT | | : - 
010543 000077 3762 07 O00 6998 ANOQ zO770DL | 7 ORITY x @ 
010544 200000 2563 11 O00 6999 ORSQ eXPTRePePJUT ip 
030545 000104 2352 04 10651 7000 LDA TDAPJeS SNUMBe FLAGs KPX 
010546 001615 2752 00 010 7nn1 ORA TOT | « @ 
010547 200001 2553 11 000 70n2 ORSA LeXPTRePePJT ae 
010550 200001 4463 11 O00 7on3 SXL KPXeleXPTRePePJT le 
010551 000002 6202 00 O00 7004 FAX XTMP a2 7* ACTIVATE PT CELL ©°}.}.}©§©@©@©§©8h©hv[— TD 
010552 700302 7403 00 000 7005 STX XTMP eo eCRPJUT 9 ePeCR ie 
010553 7006 OPFNe DSP is 
010554 000000 6362 1@ 000 7007 ~~ EAQ 2K PX | | «<@ 
010555 770000 2762 07 O00 7008 ORO =O77TO0009D 7*® MAK NABLE WORD WITH TOP URGENCY : eens 
010556 002733 7032 00 010 7009 TSX ENBLX*ENABL AND ENABLE IT . 
010557 000000 0112 07 000 T7on10 NOP DL. : ea = ee ee ~ «@ 
0105460 003527 7102 00 010 7011 TRA EX1Tl a 
T0112 * az 
7013 % DELETE PRIORITY AND DISABLE INTERFACE 2@ 
T0014 * 9Z 
010561 7015 TOLT FOU 
010541 SOOUET 1062 04 10642 -7Ote~ HBX KP TORKP XG $@*® CHECK VALTDITY BY KPX TTT —,@ 
010562 003524 6012 00 010 7017 TNZ EXITO - 
0 6 018 e zz 
010544 000066 7012 04 10652 7019 TSX ZsTTPSTs$ . 2@ 
010565 0000 04 106 AC iy: OTPUTF 1 eS rR INTERFACE LINKA BPG oe oe ge ee rae 
010546 007033 7552 00 O10 7091 STA XeTPUT TO DISABLF INTERFACE ; 
0105H7 OO0057T 2352 04 10646 7072  #&4LDA  TDSLCT#IleS 0 i 
010570 001430 7552 00 010 7073 STA XeSLCT is 
OTO571 OoOvG 0T2 O D656 70? R eT TROP 9S aa ae 
010572 000050 4502 04 10642 7025 STZ TDMKPXeS /* LOG=OFF KPX 
O10573 006036 4716 076 LD FA 75De ; 
oNOeTe 000053 2342 04 10647 7027 SZN SOARES /* CHECK A#PRIORITY OPTION 
01057 000 6012 4 60 0278 2 DL 
eee 577777 6222 00 O00 7079 FAX XPpPs-l= ZAPRIO /* RESET AwePRIORTY BIT 
010577 100000 3423 16 O00 7030 ANSX PTF 5 SKPR OP PIP 
. 010600 7031 OPEN. DSP 
010601 003527 7102 00 O10 732 TRA EXYT1 
010602 7033 TDL1 FOU * 
010602 777731 2362 04 10533 7034 Lda TDFPT S$ 
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SYSTEM TRACE DUMP c® 
010603 000000 6362 02 000 7035 FAQ 9Qu 
010604 000274 7102 00 O00 7036 T.TPl.} TRA APDLTT#APBASE 7* DELETE PRIORITY 
7037 * ES 
7038 * ~ POST ROUTINE AT TRACE BUFFER EXCHANGE Zs 
7039 * ~@ 
010605 7040 TDPOST EQU * os 
010605 700344 7573 00 000 7041 STAQ eCRTTP4299PeCR 
010606 700343 0543 00 000 7042 AOS eCRTTPaleePeCR 7* COUNT UP 
010607 000032 7202 04 10641 7043 LXLO TDCNT9$ /* SET TRACE DUMP SERIAL NUMBER oe 
010630 600007 7403 00 000 7044 STXO 7aeP6 | ov 
010611 000030 0542 04 10641 7045 AOS TOCNT 9$ /* COUNT ‘UP SEQUENCE NO6c ov @ 
010612 007034 7102 00 O10 7046 TRA XeTPUTel - 
TO047 * . ev 
| 7048 % CHECK EVENT SIGNAL BEFORE DISPATCH QUFUE SCAN ....V.V).. 
7049 * . Ly 
000001 7050 PePIN SET PI op 
. 010613 7051 TDOCHCK EQU * «@ 
010613 000037 7012 04 10652 7052 TSX ZaTIPSTeS ge 
010614 700343 7203 00 O00 7053 LXL XTMPeeCRTITP+leePeCR /* ARE THERE POST SIGNAL 
01061 Se DODO Bue Oa LSA TOG Ne, ee ES 7 _ 
010616 7055 TDCK1 EQU Gt 
T0616 OQOO004Q e U) UAD6 056 e PO @ S 
010617 300037 2263 16 000 7057 LOX KPXeDePRQ2KPXePePRQ /* DO NORMAL OP. .@ 
010620 001431 7102 00 O10 7058 TRA XeSLCTH1 - Ze 
010621 7059 TOCK2 EQU * te 
010691 00343 2203 00 000 7n640 LDX XTMPeeCRTITP+1l a sPeCrR HECK TRACE DUMPER ATU c® 
010622 777774 6002 04 10616 7N641 TZF TDOCK19$ NOT READY ez 
010673 000017 1002 04 10642 706 CMPX XTMP se TOMKPX 0 5 AECK AT.50 
010624 777772 6012 04 10616 7063 TNZ TOCK1L«S NOT MATCH. SOME ERROR IGNORE 
010625 000000 6262 10 000 7044 — FAX KPXeeXTMP  £-*® DISPATCH TO THE DUMPER UU 92 
010676 700343 6403 00 O00 7065 ERSX XTMPaeCRTTP+leePeCR AND CLEAR KPX gz 
010627 000027 7012 04 10656 7066 TSX ZeTTPOP SS w® 
010630 000000 6352 16 000 7047 FAA eK PX . ez 
010631 000002 7352 00 O00 7048 ALS 2 gg 
010632 100000 7727 01 000 7049 LDWS sAUePePID 
010633 100001 7727 O01 000 7070 LOWS 1 sAUsPePID 02 
010634 100002 7737 01 O00 7071 LOSS 2sAUsPePID 
010635 400000 2363 16 000 7072 LDQ eK PXsPePST 
010636 100000 6762 03 000 7073 ERQ PSEXCeDU Li 
010637 400000 7263 16 000 TO74 STO eKPXePePSl 9L 
010640 001510 7102 00 010 7075 — TRA SLCT20 i@ 
7076 * vi 
TO77 * DATA COMMON ETC 
7 T7078 * | . ,@ 
010641 000000 000001 000 7079 TNCNT ZERO orn /* BSN OF TRACE BUFFER a 
010642 000000 000000 000 ays AMKPX R DX 0 RACE DUMPER mare 
| 010643 7081 TDOTPUT EQU ul , | ° @ 
010643 000106 7102 00 000 7nR2 T.eTPUT TRA TDPOST-TD % FACE LINKINK OPe 8 
010644 700344 7573 00 O00 7083 STAQ eCRTTP+299PeCR NORMAL OP WHEN DISABLED L 
010645 7084 TDSLCT EQU % © 
S 
t 71 
eae eee tl 
@ 
_ : e 


—————— 
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8s 
SYSTEM TRACE DUMP c@ 
9S 
010645 000114 7102 00 O00 7085 1TeTDSL TRA TOCHCK=TDBASE | ze 
010646 300037 2263 16 000 70R6 ~ LDX KPXsDePROKPXePePRO | ~@ 
010647 7087 TDAPT BSS l /* INDICATOR OF A»PRIORITY OPTION zs 
ae TO8B NON#ZERO = SFLECTED zg 
010650 000200 034000 000 7089 TDAPF ZERO ZAPRWT sZAPCOD /* AwPRIORITY PATTERN ~@ 
| . 7090 | LOWER IS INITIALIZED oe 
010651 600000 000000 000 7091 TDAPJ ZFRO AP. EXC+AP eRVD /* PJT ENTRY #1 WORD re 
7092 av 
010652 7093 TTPST EQU % i 
| 010652 7094 eSHUT eCRITPrLeePeCR gy 
010655 000000 7102 11 000 7095 TRA 92 « @ 
010656 7096 TTPOP EQU * a 
010656 7097} eQOPEN eCRTTP#leoePeCR #3 ey 
010660 000000 7102 11 000 7098 TRA 92 »@ 
010661 7099 eDOPTEe TD lv 


nn RR A A RR a cSt tn rer ly pennant enna 
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8S 8g 
ah i it ce MO Et ONO UE Ne ey ee @ 
9S : 9S 
ss 010661 000000011207 000 a 
@: 010662 7101 FeOPTS. MCeMCOUNT 1s ® 
eg T102 % : es 
zs — 103 % THTS ROUTINE COUNT MODULE LOADING/PUSHDOWN 1/0 
@: oT (PHYSICAL 170) AND COUNT MACRO CALE @ 
0g t105 * os 
a 010663 7106 MCTBL1 BSS «NRMOD 
@. 011663 7107 MCTBL2 BSS eNRMOD 
is 012663 7108 MCTBL3 BSS eNRMOD Us M#» L = # RELOADS WHEN IN SRM 00000020 
ov 7109 ov 
@: | 013663 7110 MCLD  EQU x ® 
vy 013643. 600103 7203 00 000 TVV1 LXLO 25! OAD+1ls ePe SSA rp 
me 013664 001001 0542 10 O00 7112 T.MCLD ADS MCTBL2=MCBASE 90 a 
@. 013665 000000 7102 11 000 30 | TRA «LMADX 1 @ 
ly 7114 lv 
or 666 71 1 5 MCPD FQU * ov 
@ : 013666 500000 7203 12 000 7j}16 LXLO oXPAGEsPeSRM | oc @ 
ie 013647 000001 2212 03 000 7117 LDX1 1ehU - 
fe 013670 001001 0412 10 O00 7118 TeMCPD ASX] MCTBL2=MCBASE 90 | 
@ :: 013671 600012 2213 51 000 7119 LDX PUSHXoeSSAel*PeSSA /* RECOVER XL TD 
- 013672 000001 7102 11 000 7120 TRA 1 sPUSHX | ee 
ve TAL vE 
@ : 013673 7122 MCAL QU * «® 
ze 000000 7123 PeMDD SET PeMCRO ze 
. 013673 000001 0542 01 000 71274 TeMCAL AOS MCTBL1=MCBASE sAU - 
@ ©: 013674 006134 4706 O07 000 7125 LDP PeMDD»SDeMDD9DL ep ee ee i 
62 013675 004053 7102 00 O10 7126 TRA XeFNT+] 62 
gz 71277 * az 
® riokek ENTRY POINT 62 FOR MODULE COUNT TABLE DUMPER 2@ 
oz 7429 * 92 
- 013676 7130 MC62  FQU 
@ 013676 000004 6716 04 13702 7131 LDD PLANCVECSS —— ee ea ———— See 
€2 013677 7132 eFXTT LePl €z 
zz a INHTB SAVE 2 ON rad 
@.: 013677 O00002 6306 04 13701 EPPRO x*4+29% z@ 
0z 013700 700006 7103 00 000 ; TRA eCREXTeePeCR oz 
3 013701 000200 000001 000 ZFRO eRGol . 
@: ; ——~TNHTB RESTORE a 
bs 013702 002777710640 000 7133 MCVEC EVEC. e ISRsMCTBLL=MCBASE » eNRMOD*3 oR 00000020 i, 
gt 13/703 1 6 0 
@: 013703 7134 TeMCVC EQU MCVEC#+1 
és — —— OLsToe. 135 - «OPTEs MCG, en Sa 
et . . 
@: 
OL — 
@: 
@> 
G 
? 
@ : 


@ » eae rr . : o® 
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@. Ft WO SR OPT ON 
9S 9s 

ss 013704 _7137__ oOPTSs MNsMONITR 00000020 
@ :: 7138 % | | 00000020 
és 7139 % WHEN INVOKFD BY CALL TO EP#61ls THIS OPTION CAUSES A CALL 00000020 
s 7140 % TO A MONITOR MODULE ON EVERY TRACE ENTRY MADF | 
@:: 7141 * 00000020 
0s 7142 % PRECALL PARAMETER! = 
- 7143 % AR = ZERO TO INVOKE MONITOR 00000020 
@: 7144 * AR NOT ZER ANCEL MON R 
Ly 7145 * , 00000020 ly 
: GS H””~™~™~™~CUCALLINNG SEQUENCES) OOOO OT 
@. 7147 % eCALL eMDISP. 61 00000020 
vy 7148 * ERROR TU T ULE N L. al “s 
ey a 7149 \% GOOD RETURN 00000020 
@: 7150 * 
. 013705 7151 MONTR NULL 00000020 
013705 006145 4766 07 000 7152 an" Ape So eSShsDE COME HERE ON EACH TRACE OO 
@ « 013706 7153 MNTRC ICLIMB  *%e0o1 CALL MONITOR MODULE 00000020 x 
ee 013706 000001713400 000 VFD 18/1909/71391/191/091/096/Me e 
te 013707 000000200000 000 VED 1/099/0s8/091/eNol/eO92/Ne2/0e12/H%* i 
@-: 013710 000000 7102 14 000 7154 TRA O94 ORM E RETURN «®@ 
ee | 7155 % 7 00000020 ae 
ve a Ol3711 7156 MN61 NULL NTER HER ) INVOKE OR CAN pOUUNNZU =— a 
@ = 013711 000000 1152 07 O00 7157 CMPA O»nl CHECK THE REQUEST 00000020 «@ 
ze 0137)2 000017 6012 04 13731 7158 TNZ MNOFFsS | « CANCEL REQUEST 00000020 i ee 
Le 013713 006134 4706 07 O00 7159 LOP POsSDeMDD9DL MUST INITIALIZE CLIMB 00000020 ig 
@:: 013714 000573 2353 00 000 7140 LDA »MMUMM? #PO ee ee oe OOOOIOZO ge a 
ez ene 007777 3752 07 OOO 7161 ANA ZO77779DL 00000020 zs 
gz 013716 000004 60l2 04 13722 @1lb2 TNZ MNO LA OS << SIOIUN2O C8 
@ 013717 7163 eEXIT + ERROR RETURN *CUZ MODULE NOT PRESENT 00000020 z®@ 
92 J INHTB SAVE «ON 92 
gz 013717 OQ00002 6306 04 13721 EPPRO 4295 ~ 
@. 013720 700006 7103 00 000 TRA eCREXTe9PeCR = —  @ @ 
ez 0137271 000000 000000 000 ZERO eRGe ez 
zz : . INHTB RESTORE 
@ 013722 200000 2752 07 O00 7164 MN61A ORA =02000009DL APPEND MASTER MODE BIT TO SEGID 00000020 @ 
02 013723 777764 7552 04 13707 7145 ~ STA MNTRC+1°$ £4AND INITIALIZE CLIMB 90000020 -00-—OO 
éi 013724 000012 2352 04 13736 7166 LDA IeMNTR9S INITIALIZE TRACE TO COME THIS WAY 00000020 
@. 013725 007040 7552 00 O10 7167 STA TPUTE Fa pre ee OGG AG ee 
“A 013726 7168 EXIT 1 RETURN 00000020 re 
91 J ] 9 
@: 013726 000002 6306 04 13730 FPPRO x*+29% 
si 013727 700006 7103 00 000 “TRA «CREXToePeCR 
i 013730 000000 000001 000 ZFRO eRGl 
@: INHIB RESTORE 
im 013731 777754 2352 04 13705 7169 MNOFF LDA MONTR®S CANCEL REQUEST» RESTORE TRACE EXIT 00000020 
Oo: 01373 O07040 7552 00 O10 7170 TA TPUTE® ONO OW lS WAY po00N0ZN 
@: 013733 7171 eEXIT : 00000020 
8 | INHIB SAVE ON : 
<a 013733 000002 6306 04 13735 EPPRO *+29$ 
@> 013734 700006 7103 00 000 | TRA eCREXT9ePeCR 
: | 
@: 
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MEASURMENT TOOL OPTION : <@ 

9S 

013737 000000011207 000 | ss 
013740 7175 E.OPTS. VFeVERIFY | — «®@ 

7176 * gg 

T1L77 * THIS OPTION MEASUR AP TIM iN * AAR 5 » oy: Tie 1 oe 
a 7178 % s® 

7479 * | a 

7180 * MESURMENT OPTION SELECTION SYMBOL AND MACROS _ 
7181 * w@ 

* 


7182 Ly 
7183 * MACRO PROTOTYP _ SS ee 


oT v® 
7185, * eMeS NAME START | vy 
7186 \% i wenemene INTERRUPT INHIBIT 
7187 * oMaF NAME e TOTAL=NAME END 
7188 % i 
7189 % eMP.S START ee 
} 7190 * T ewe enne=INTERRUPTION INCLUDED 
7191 * oMP.E ——— eg Se 
Set I Ena aa Ss ae an Nac ee a a aa me eM ee ee le 
7193 «MeS MACRO  @ 
7194 Te#2 TRA xe VFBASEo1 3 se 
7195 LOP PO «SDeRMSeDL ee 
7196 RSCR SCUCLK 9 PO «@ 
PS TQ CL VFBASE 9 ON ee ae 
a 7198 V#¥2E NOP . 
7199 TRA V#¥2Vel 
7200 ENDM oMeS 
7201 
7202 
7203 aMeE MACRO 9z 
7204 Te#3 TRA #eVFBASE+1 a 
7205 LMP PO eSDeRMSeDL x ® 
7206 RSCR SCUCLK 9 ePO | | ez 
TO A OOP”””CSN”:CUR CL VE BASE 9 PN gg 
7 7208 TZE 5e1C z@ 
7209 SRO #1le@VFBASE oPN OS ee ee ee ee ee ee 
7210 ASO #2=VFBASE oPN 
“Tall AOS  #2=VFBASE+eNRPROOPN | 
7212 STZ #1=VFBASE PN nm 
eee OE VSE NOP 
7214 TRA V#3Vel : a®@ 
7215 ENDM oMeke I og ng a 
7216 i 
7217 . nf a® 
7218 eMeC MACRO | : if 
F219 Ye#2 TRA ¥mVFBASEOL SS 
7220 STZ #1-VFBASE sPN « @ 
72271 V#2E NOP ) aa 
7222 TRA V#2Vel | : L 
7223 ENDM Mak 


cn ncn nen a ay 
a ‘ o9 
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8S 
MEASURMENT TOOL OPTION s® 
9S 
7224 $s 
7205 > @ 
000335 7226 «»SMES]1 EQU » SSAWK 3 *WORK AREA - 
000336 7227 .SMES2 EQU . SSAWK= rr IME z6 
000337 72278 «SMES3 EQU © SSAWKe 1 *TOTAL COUNT $$ 
7229 os 
7230 6y 
72341 oMP.S MACRO er 
7232 Ye#2 TRA xe VFBASE+1 =e 
7233 LDP PéeSDeRMS9DL SAE nee We ee eee ae i 
7234 RSCR SCUCLK 9 eP6 : Sv 
7235 LDP P6sSDeSSASDL RE een ns Sg IO” SP AEN ee gp ee ee 
7236 SToa #109PeS5SA « 
7237 V#¥2E NOP se 
7238 TRA V¥2Vel | a 
7239 ENDM MP eS ey 
7240 «@ 
7241 gE 
7242 aMP.F MACRO LE 
7243 Ta#3 TRA ReURGASES1. oS ee @ 
TA44 LDP P6-sSDeRMSeDL GE 
7245 RSCR SCUCLKs P56 ve 
7246 LOP P6eSDeSSA*DL -«@ 
7247 SZN #1LleePeSSA Se 
7248 TZE 5eIC le 
7249 SRO #1leePeSSA . 0€ 
7250 ASQ: #2-VFBASE »PN . 62 
7251 ANS Hom VEBASE te NRPRO OPN 
7252 STZ #109PeSSA 
7253 V#3E NOP 
7254 TRA V#¥3Vel 62 
7255 ENDM aMPece | ~~  @ 
. 7256 €z 
ee eg ee ee a ee ee 
7958 eMPeC MACRO 2@ 
7259 Ye#2 TRA x~VFBASE+!] 0z 
7260 ST? #1aePeSSA , 
7261 V#¥2E ° NOP a See eae ee Re 
7262 TRA V#2Vel A 
7263 ENTDM oMPec 91 
7264 * o @ 
265 * M K SS a eye ets 
7266 * 5 
O13741 7267 MS VFNCNeDCNI J7*® START GFEROAD 
013747 7268 Meal VFDCNeDCN2 /* GEROAD REJECT ‘i 
OT 565 ~Ma v TSDCN *—START-RELING os 
013761 7270 MoE VFDCN 9 VFDCNT sDCN4 | a | 
T7271 * é 
7272 * | 
a 77-73% TIME OF THIS MEASURMENT 


014140 777 TTT 000 
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8S 
MEASURMENT TOOL OPTION | ~@ 
7274 * 6S 
013774 7275 oMeS VFOVHsOVH1 
014002 7976 oMeE VFOVHe VFOVHT sOVH2 e 
T2277 * zs 
7278 % TIME OF SELECT A PROCESS <® 
T279 * os 
014015 7280 oMeC VFSLC»SLC1 ; 6Y 
014021 728) aMaS VFSLCsSLC2 or 
014027 7282 oMeE VESLC*sVFSLCM*SLC3  /* RETURN TO MAIN oe 
014042 7283 aMeF SLCsV J es ¥ M CeCe AK oy 
014055 7284 oMeC VFSLCsSLC5  @ 
7785. # vy 
7286\% AVERAGE TIME TO CALL A SSA MODULE ma 
7aR7 * @ 
000335 7288 VFAVE EAU oe SSAWK=3 /* TOTAL AVERAGE IN SSA MANAGER 25 
014061 7789 oMP.5 VEAVE9C 
014070 7290 eMP.E VFAVEsVFAVETsCAL2 
000332 7291 VFDIO FOU 2 SSAWK=6 aia. 
014104 7292 eMP.2S VFDIOsCAL3 , Le 
014113 7293 eMPeE VEDIO®VEDMIO CALS ES . 
71294 * ; Ge 
7295 * HIT RATE ve 
7296 * «@® 
014127 000000011207 000 . ze 
014130 000320 0542 00 000 7297 VPUSH FANS VFPUSH=VFBASE a 
014131 600012 7413 56 000 72798 STX PUSHX ee SSA eee SSN 
014132 000321 0542 00 O00 7299 VTPSH AQS VETPSHeVFBASE 
014133 OOl17?? 3762 03 000 7300 ANOQ MDMSK eD 
014134 000322 0542 00 000 73n1 VLOAN AOS VFI OAD=VFBASE 
014135 777774 6202 00 000 7302 _ FAX X0—=4 
014136 000323 0542 00 000 7303 VTLD AOS VFTLD@VFBASE 
014137 600104 2363 00 000 7304 LDO 2 SLOAD+299PeSSA 
7305 * €Z 
7306 * DATA COLLECTION AREA zz 
7307 * 7 z@ 


7308 BDEC wlLewlewloem an len oz 
014141 TIT7TI7VITTIT7T7 000 
—OUALao  Urrtlriitr~ * OO0r® ~ om  e e 
014143 777777777777 000 : i 
[05 A 7m GT tS A 0 | 9A aR aaa a a 
014145 777777777777 000 
OlL41GG TETTTTTTTTTT OOO TS 
014147 777777777777 000 
014150 7309 VFDCNT BSS oNRPRC#2 y O TAKE OUT OF EXEC 
014160 7310 VFOVHT BSS eNRPRCK2 /* TIME OVERHEAD OF MEASURMENT 
OI 0 7311 VFSLCM BSS eNRPROF v OT RE@#DISPATCH 
014200 7312 VFSLCC BSS eNRPRCK2 /* TIME TO START CeCe 
OO OT4210 ~~~ 7313 VFAVET BSS wNR ) 55] 
a 014230 7314 VFDMTO BSS eNRPRCK4 /* TIME TO DO 1/0 
014250 777777171777 O00 7315 BDEC SS SS eS 
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ae, MEAS URMENT TOOL oPpPTION 
014251 777777777777 000 = 
014252 VI7777771777 000 ~® 
014253 VI7777777777 000 an 
Olct5 ToeRIILT Tite 000° ry nt ee ee eS eR ee Se ee NE ed Seer ee igi 
014255 TITTTTITTT7T77 000 x ) 
014256 Tri?lii7vitt? 000 a 
014257 77777777777 000 
«142600 °~——S7316 VFPUSH BSS = =ol”~—~—“—~™CCCCCCO SHH DOWN NTO DESC 
014261 7317 VFTPSH BSS 1 | /* TOTAL PUSH DOWN 
26 7318 VFLOAD B55 1 ‘ 

014263 7319 VFTLD BSS 1 /* TOTAL LOADING 
014264 000004710204 000 
014270 777777777777 000 73270 BDEC mlewlowlemlemlewlemlowl 
O14271 77777777777 000 
014272 TIITTITTITIITV7I7 000 : 


014273 TI7TT7T7I7T7IIII2 000 


oY 
014274 777777777777 000 «@ 
014275 ?7?77T7I7TI7T7 000 ” 
014276 777777777777 000 = 
014277 Teri? iririy? OOO a 
014300 7321 VFDCN BSS eNRPRC /* wORK AREA rs 
OO BOGOTA VFOVAH) BSS) @NRPRO gg 
014310 7323 VFSLC BSS eNRPRC «® 
014314 73274 eOPTEe VF ee 


124gT 
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MEASURMENT TOQL OPTION ; 
9¢ 
014314 7326 2eOPTSe TTsTIMTRC _ Ss 
73277 * | 
7328 * THTS OPTION LEAVES SCU CLOCK TIME IN TRACE ENTRY +3 ~ 
7329 * | : 
014315 7330 TTIMF EQU % 
; 000007 7331 PaRMS SET P.cR 
014315 600000 0113 53 000 7332 NOP eANeP6 /* DO THE OP OF XeTPUT 
014316 006063 4776 07 000 7333 LDP PeRMS*SDeRMS eDL 
014317 700040 4133 00 000 7334 RSCR SCUCLK 9 sPeRMS a 
014320 600003 7563 12 000 7335 STQ I 2 1) aa 
014321 006130 4776 07 000 7334 LOP P.CRs5DeCReDL ® 
014322 007026 7102 00 010 7337 TRA XeTTT+1 “Je RETURN, En 
7339 \% ey 
7340 * PATCH AREA FOR TRAP IN TRACE OT Ti I am Bee OE ee ee 
7341 * ip 
014323 7342 DUP 2010 _ 
a 7343 a) 
014323 000000 000000 000 7344 OCTAL / / / / o 
7345 
014324 000000 000000 OCTAL 7 — 
7345 GE 
014325 000000 000000 000 OCTAL 7 / 7 7 
7345 __«@ 
014326 000000 000000 OCTAL / 7 
7345 
014327 000000 000000 #000 OCTAL 7 ———"» 
7345 62 
014330 000000 000090 000 OCTAL 7 7 7 eR Se he ee gD Ew 
7345 z® 
014331 000000 000000 000 OCTAL / / / / oz 
7345 Sz 
014332 000000 000000 000 OCTAL / / / /  ) 
; 7345 €2 
014333 000000 000000 000,77 OCT A fe ge Sg eee Se ge ee ee gs 
7345 es 
014334 000000 000000 000 OCTAL / 7 02 
7345 | | 
7347 :@ 
014335 7348 eOPTE. TT 
7349 * 91 
7350 * DATA TO COMPRESS MODULE AND OPTION LIST a 
7351 % MUST BE PLACED AFTER ALL OPTION ROUTING 2220S 
7352 * , el 
014335 7353 OPLTST B55 »©NOPT.e OPTION LIST IN MODULE ©)”. 3 @& 
_ 014352 7354 OPSZLS BSS eNOPTe *OPTION SI7E MAY ME OUT OF MODULE ti 
014367 000000 000000 O00 7355 OPCNT ZFRO ¥ D OPTTON COUN ot 
= ® 
& 


oe A OM T HM YD NR DO A 


®@ «6. 
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INITIALIZE SECTIO DEFINITION c® 
7357 * | 
7358 * THTS SECTION INITIALIZE eMDISP BODY AND EXTERNAI SEGMENT 2s... = 
7359 x ANn CREATES SEGMENTS €s 
73h0 * 2s 
7361 % eMDISP BASIC DIVISION INITIALIZE @ 
7362 * eMMDISP MACRO DIVISION INITIALTZE 20000 
7363 * eMNISP TRACE DIVISION INITIALIZE * es 
TO ) eMNISP OPTION DIVISION INITIALIZE ES 
7365 * CRFAT DESCRIPTER a" 
7366 * CR KL SEGMENT SET UP ae 
7367 * MOVE ROUTINE AND FILL UP SEGMENT ~@ 
— 736B # REGISTER INTERFACE WITH oMINIV 00 
7369 * P7 sP,.CR ep 
7370 * P6 = SYSTEM LINKAGE SEGMENT eae as Fee Gh ge ng ee a Ee ee ee eee 
7371 * P5 = WHOLE MEMORY iy 
7372 * P& z= eMDISP BODY ar) or 
7373 % x = »MDISP BODY T = 1. «@ 
7374 * = RETURN ADDRESS TO «MINIT. ee - 
7375 * aces =z OQ LE 
a 7376 % RETURN OL LAST OF eMDISP SEGMENT IN EXEC ® 
7377 * QU NEXT MODULE LOADING ADDRESS . 
ITB ®OUREGTSTER ASSIGN MENT gg 
000001 7379 PY SET Pl | «® 
00006 73R0 PS SFT Pé , Se 
000002 7381 IX SET 2 . 
000003 7382 TY SET 3 s@ 
73a3 INHTB OFF 62 
7T3R4G RR RRR HOR OR RR RR RR RR is 
7385 % PATCH AREA FOR INITIALIZE DIVISION z® 
014370 7386 PTCHT EQU * 92z 
73R7 **** PATCH LIST & & *#* Ke 
7388 ="==“COMMENT- CODING - °- ~~ “SSSuep° oe ee 
7389 LOC. CONTENTS 1 8 16 MMDDYY : is 
014370 7390 DUP 2932 zz 
739) 2® 
014370 500000 D00000 000 7393 OCTAL i i as, a i 
7392 
014371 000000 000000 O00... ®©KOCTAL 7 7 ape ee ee ae ,e 
T7392 Lh 
TSC $7-2BNI1/14541°1° 9011515101 CL |S a A Ae 
; 7392 3 @ 
014373 000000 000000 O0*  & & &  . .  &»® ©+4O¢TAL.. | cca ican cea meena na? daa ia ES 
7392 
014374 000000 000000 000 OCTAL / / / 7 ; 
7392 
014375 000000 000000 O00 OCTAL 7 7 7 7 
aT sk 7 7392 
014376 000000 000000 O00 OCTAL 7 7 7 7 8 
7392 ee ea 
014377 000000 000000 000 OCTAL / 7 7 rife Se ee ® 
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8c 
fhe ee INITIEALTZ&F SECTIOO DEFINITION. __ «® 
9S 
7392 | ss 
014400 000000 000000 000 | OCTAL / / 7 7 ~@ 
7392 3 es 
014401 000000 000000 +000 | OCTAL 7 7 OS ee I ee I TY 
7392 <@ 
014402 000000 000000 °+# 000 OCTAL / / / / of 
7392 - 
014403 000000 000000 + 000 OCTAL 7 / / 7 » @ 
7392 , i 
014404 000000 000000 +000 OCTAL / / 7 i a aR aa 
7392 o @ 
014405 000000 000000 +000 | OCTAL / Jo ge eee gare my Senta! TO gee ee Tan agp aay See we gD Pees me eee ee 
7392. ey 
01440@ 000000 000000 #000 OCTAL / / 7 7 es 
| 7392 3 
014407 000000 000000 #000 OCTAL 7 / 7 7 o 
__.7392 _«@®@ 
014410 000000 000090 #000 | OCTAL / / 7 7 - 
: 71392 | a 
014411 000000 000000 +000 OCTAL / / / 7 
. - 7392 Se 
014412 000000 000000 #000 OCTAL, 7 7 7 ee eee a 
| | 7392 | 
014413 000000 000000 #000 OCTAL Ee ef ee ee fee aE a ge ee ee ae nO Je ees eee eee a Tg Mee oS ee ee 
7392 le 
014414 000000 000000 £000 OCTAL / / / / oc @ 
7392 62 
014415 000000 000000 000 | OCTAL / fe ge re a ie, se ke ee ea 
| 7392 : 2z® 
014416 000000 000000 #000 OCTAL / / ye 9 
| 7392 | 7 | oe 
014417 000000 000000 °#000 OCTAL are es rr | A ae | 
7392 €2 
0144270 000000 000000 000 OCTAL / / 7 / zz 
a 7392 z@ 
014421 000000 000000 000 OCTAL 7 / 7 Se . , — 
7392 6} 
014492 000000 000000 O00 OCTAL oe ae a ny a a: 
| 7392 re 
014493 lolezelexexemmelerexezere 000 OCTAL / 7 7 7 
7392 
014474 000 0000 00 OCTAL 
7392 
614425 000000 000000 #600 | OCTAL eG 
| 7392 
014426 O00000 OUDDN0 C00 CTA TIT 
| 7392 « @ 
014427 000000 000000 000 OCTAL | a. as aii ai aa : 
7393 % £ 
TO OS H!™”~”COUPTTON dM SELFCT MACRO” » @ 
S 
v 7q 
a | 
A 
L 
9 
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: 8S 
—- PL fa VL OS 2 SG Ge 
bg cles ies 7395 * 
7396 .ISLCT MACRO | 
7397 LXL. TX sOPCNT *CURRENT POINTER IN LIST ; 
7398 FAA #1pA XOPTION BASE ADDR @); ING 
ee 399 ARL. 18 
7400 ORA DSPEND *#CURRE ND - OPTION BA 
7401 STA OPLIST9IX *PUT ENTRY | 
7402 FAA W1SIZE XOPTION CONE SIZE ee 
7403 STA OPSZLSeIX *SET OPTION SI7E LIST i" 
a ee a ee ASA DSPEND MER TEND MODULE SIZE 
7405 AOS OPCNT *xCOUNT UP NOs OF OPTION op @ 
7406 ENDM ~ISLCT " 
7407 * i &y 
7408 * SET BASE TO EVEN LOCATION. OOOO ay 
7409 * ; Ly 
7410 «ISETE MACRO ob 
7411 LDA DSPEND | «® 
7413 ANA 20777776sDU le 
| 7414 STA OSPEND SS @ 
7415 ENDM e LSETE SE 
7416 * 
7417 * LINKAGE MACRO » CHANGE OP. TO LINK OPTION 
7418 % . 
7419 sICHNG MACRO 
7470 ASX [Xe#l “WADD BASES 
7421 LDA #1 *GET OPERATION WORD éz 
7422 STA #2 SET UP LINKAGE OPe TS 
7423 ENDM e ICHNG z® 
7424 % 92 
7425 % BASE ADD MACRO TO RELOCATE ROUTINE s 
7426 * ADD DSPEND INTO UPPER HALF 00 ee 
7427 * €z 
7428 «2TRASE MACRO zz 
7429 Lox 1XeDSPEND *CURRENT BASE ADDRESS 2@ 
= 7430 TDRP #1 | PO rae 
7431 ASX TXele#1 *ADD OFFSET BASE a 
7432 TNRP  ) 
7433 ENDM eo TRASE Lh 
te re ee a i a ey ee ee 
7435 % RESET OP CODE MACRO es 
ee eee et te 1 tg a ae 
7437 .10P MACRO : 
Foe ee FAX TY o#1 “RGET OP CONE 2 _ 0 
7439 IDRP #2 it 
Re ge a. ek ae oo SSR a ee 
_ 7441 TDRP 7 @ 
011207 7443 NOPDI BOOL 011207 *NOP OsDL OPs CODE ) 


7444 % | 


09 
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8S 
INITIALIZF SECTIOO DEFINITION a) 
9S 
ee 7445 % RESET Y=PART MACRO 2 
7446 * | ~® 
7447 «TYPRT MACRO es 
eee ee eR TRG, ~ SAVEMOP a 2 ome Ee 
7449 IFE 1Le3ztetye <® 
7450 FAX TY e#2 = 
7451 INF — 1M@3tePL¢ ae 
7452 FAX TY e#2-#3BASEOIX ov @ 
7453 STX TY o#1 Ly 
| F454 CRSM RESTORE.” OOO ey 
7455 ENDM « LYPRT ov @ 
7456 * | - 
7457 \% CONVENSION TO CHANGE WORD FOR LINKING AN OPTION IN INIT 
7458 % TeXXXX oe THIS TYPE OF SyMBOL ARE USED FOR THF WORD | 
7459 * WHICH WILL BE PARTLY INITIALIZED . 
7460 * KeXXXX em THIS TYPE ¢ WORD W BE REPLACED ENTIRELY = 
7461 % «@ 
7462 ae 
. 7463 % . 
a &  PRONUCTION MODE SUPPORT MACRO. 
7465 % se 
7466 ePRDC MACRO DYSPVT.O ve 
7467 PRD SET #2 «® 
7468 DUP le#l-#2 ze 
7469 eaPRDIL #3 le 
7470  —NDM. ePRDC og @ 
7471 w2PRDI MACRO 62 
7472 ORGCSM PRN 92 
7473 ePRN2 #1 7 z@ 
7474 PRD SFT PRN+1 | = 
7475 ENDM ePRD1 ez 
7476 «PRD2 MACRO z® 
7477 #1 #2 €2 


7478 ENDM ePRD2 zz 


; ‘hy | zz 
014460 016635 7550 00 010 7514 STA SVP eSD+l PMME5860 2@ 
ae lee 34-2560-00- 010 7st 8 rte 20 
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a a a 8 
ag 
TNITIALIZE BASIC DISPATCHER ~@ 
9S 
T4RO KKH KKH KK HHH KKH KH HHH SE ae 
7 _ es 75a INTTIALIZE ENTRY POINT —_ ee eee 
014430 7482 TDISP EQu * = €S 
014430 O17 7410 00 O1 483 XT INTTX MVE RETURN AnDR YT eMIN zs 
014431 000000 6220 00 000 74R4 FAX 1X00: ~& 
014432. 200240 5202 O1 000 Taad RPT PICHCOeleING. 0 Se Oe ee 
014433 006515 2340 12 0610 T4pR6 SZN PTCH291X 
014434 000002 6000 04 000 Taga? TZF 2eIC 
014435 017755 0540 00 O10 7488 ANS IPTCH2 ty 
7489 * * * %* Ke OR OR OK x eR RE OR RR OR OR RX OF oe 
7490 * y @ 
7491 % THTS SECTION INIT TE BAS CHER DIVISION ee 
7492 %* 
7493 % INTTIALIZE SYSCCE DATA IN CC PAY ROUTINE 2 
014436 006000 4714 07 000 7494 LMP PTeSDeSLSoDL ty 
014437 O17750 0514 00 O10 7495 STD PTs IDSCW = > gh 
014440 017750 2350 00 010 7496 LDA IDSCW | 
014441 777776 3750 03 000 7497 ANA =O7771169 *CL ST SIGe B ge 
014442 000007 7350 00 000 7498 ALS 7 
014443 O17751 2750 00 O10 7499 ORA IDSCWel * LSTZE LINK BA 
014444 017750 2360 00 010 75n0 LODO IDSCW 
014445 OO01L60 60 OY OOO 50] ANQ =01609D KT SOLA WSR # 
014446 002077 7550 00 010 75n2 STA SYSCCE+1 *INITIALIZE SYSCCE 
014447 002076 2560 00 O10 7503 ORSO SYSCC 
7504 * DO THE SAMF AT A TIME FOR INITIALIZE ITSELF 
| 7505 % : 
014450 016625 7550 00 010 75n6 STA SVC eSD+l 6 
014451 016624 2560 00 O10 7507 — ORSO SVCeoD ge ee tee hae oes 
014452 016627 7550 00 010 75n8 STA SVXeSDel z® 
014453 016626 2560 00 010 7509 ORSO SVX%e5 oz 
014454 01663) 7550 00 O10 7510 STA SVYeSD+l Sz 
014455 016630 2560 00 O10 7511 ORSO SVY«SD <@ 
014456 016633 7550 00 010 7512 STA TOSeSD+l &z 
01445 0166 0 O00 O10 7 OR SQ Se DU 


7516 * INTTIALIXE TIME QUANTUM 


014462 7517 1TTQTM EQU 4 | _ a a ®@ 

014442 700271 2361 00 000 7518 LDO eCRNPCoeePeCR PROCESSOR NUMRER i 

014463 000002 0560 OS OOO TES ot 
014464 000005 7360 00 000 75270 QLS 5 a ® 

~ "="OLe465 COO00U0 6360 Uz 9000 %52t  EAQ 8QU 9° > SS 

014466 001615 7560 00 010 7592 STO TOTM | | | 2 
523 IM UAN UF SY ON U . » PRO UK S | 

7524 96MS FOR 1 PROCESSOR - 

Saat 5D ai 
7526 160MS FOR 3 PROCESSORS .e 

ee 27. .  - . — —.O9MS POR & PROCESSORS °° > ee ee, 

7528 % INTTIALIZE SRTLRM ROUTINE : ; 
014467 75299 TSRTLR FOU * »@ 

: : | Vv 

vA 

: 
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8S 
TNITIALTZ2F MACRO PROCESSOR @ 
9s 
7539 * gg 
7540 * INTTIALIZE [OCB FOR MODULE LOAD/PUSH/pOp T/0 0700 
7541 % €S 
014477 000050 6220 00 000 7542 EAX TXeePoAPT = noe SSS ee 
014500 005320 4420 00 O10 7543 SXL IXeLDIOCR+e IWCMD 
014501 000047 6220 00 000 7544 FAX I1XeePPDPT os 
014502 005327 4420 00 010 7545 SXL 1XePDIOCB+e I WCMD | ey 
014503 005336 4420 00 010 7546 SXL TXePPIOCB+e I WCMD oo @ 
7547 * ly 
GR H~”~*~*C*SMYN TEALIZeE SSA POOL STZE AND THRESHOULD = == ————————— 9 
7549 * oy @ 
~ 000004 7550 SSAMIN SET 4 ———¥#MINIMUM POOL STZE 0000000 ot 
OOOLTT 7551 SSAMAX SET 127 
O1a50e 7OORTO 7221 00 OOD —Ts5z—LXL_ Te sCRMKPYSPSCR_-FSSK_PAGE POOL SINE 0 
014505 000004 1020 03 O00 7553 CMPX IX eSSAMIN®DU *SIZE IS LARGFR THAN MINIMUM 
014506 O14 6030 00 O10 RC 1 FREQUIRED 
014507 000004 6220 00 000 7555 FAX 1XeSSAMIN | #NOe SO RESET POOL SIZE we 
014510 700270 4421 00 000 7556 SX TXeeCRMKPsoPe = 
014511 7557 1S1 FQU * is 
O14511 000 1020 00 7558 CM ’ 4 POOL IS LARGER THAN MAXIMUM = @ 
014512 014514 6020 00 010 7559 TNC 1$2 *ONE SEGMENT ( 256 PAGE ) - 
01457: 0006 6220 OO oxeye A KX X 9 AMA S F y @ YE < WEN aie 
014514 7561 182 EQU * 
014514 006133 4714 07 75h2 LA TeSDeKLs 
014515 100137 2351 00 000 7543 LDA eKLMSZo PI *IF POOL SIZE SAYS MORE THAN 
014516 OO000I7 7350 00 000 7544 ALS 18=: ae ONGTGURED MEMORY ’ 
014517 014551 7550 00 010 7545 STA 1SMAX *LIMIT THE SI7E TO 1/8 
114570 4 2 566 C ’ 
014571 014524 6020 00 010 7547 TNC 153 
014572 2220 I 548 LOX or Sh 
014523 700270 4421 00 O00 7549 SXL IXeeCRMKPoePeCR 
—.. 014524 7570 153 EQU % 
014524 000000 6350 12 000 = 757) EAA 9 1X 
01452 OO000 0 O00 JOO 7 AR , ° PKG VGH THR POUL. LY 
014526 000000 6350 01 000 7573 EAA sAU *IeEs MAX PAGES THAT ONE CAN OCCUPY 
014597 004420 2550 00 O10 7574 ORSA Xe SRML 7 
014530 000000 6350 12 000 7575 EAA Os1X INIT CELLS TQ CONTROL PAGE 
014531 OOO00L2 7350 00 000 7576 ALS 10 W ADDRESSE 
014532 000006 2750 03 000 7577 ORA 69PU 
1453 8 : 
014534 000000 6350 12 000 ie EAA OatX INITIALIZE FOR SEGMENT TWICE 
OT45° 
014536 006167 7550 00 010 Tesi STA SSAVM 
582 * ; 
7583 * INTTIALIZE CHECKSUM ROUTINE BY OPTION 
000400 7585 CKSOPT BOOL 000400 | 
014537 700650 2351 00 O00 75A6 LDA eCROPT 9 ePeCR OAD OPTION WORD IN CR 
014540 000400 3150 03 000 75a7 CANA CKSOPT eDU CHECK CHECKSUM OPTION 
014541 O14552 6010 00 O10 75aR8 NZ OVE HECKSUM REQUTRET o00000ZN 
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TNITIALTZF MACRO PROCESSOR 
9¢ 
014542 017762 2350 00 010 7589 LDA sMTRA ICKSIX | CHANGE LOAD SSA PART a 
017762 005074 7100 O00 010 . vs 
014543 005056 7550 00. 010 7590 STA ICKS1 | és 
014544 O17763 2350 00 010 7591 LDA “=MTRA ICKS2X% CHANGE PUSH SSA PART... 2g 
017763 005165 7100 00 O10 <®@ 
014545 005161 7550 00 010 7592 STA ICKS2 06 
014546 017764 2350 00 010 7593 LDA =MTRA POP7 CHANGE POP SSA PART | 
017764 005226 7100 00 010 oo @ 
014547 005215 7550 00 O10 7594 STA 1CKS3 | | ie 
014550 014552 7100 00 O10 7595 TRA IOVHS 7 Ce ws a 01 9] 01010] ' 10 aa aioe: 
014551 7596 TSMAX BSS 1 | | «v ® 
002000 7597 SPACNT BOOL 0027000 — SPECYAL ACCOUNTING OPTION (BIT 7) 00000020 | 6 
014552 7598 \TOVHS NULL 00000020 
014552 700650 2351 00 000 7599 LOA eCROPT9 oP. RELOAD OPTION rw Ba TEO or 
014553 002000 3150 03 000 7600 CANA SPACNT sDU SPECIAL ACCOUNT OPTION 00000020 
014554 014562 6010 00 O10 7601 .1N2 TOVHE YES* REQUIRED aaa ooD00uZD os) oe 
014555 017757 2350 00 010 7602 LDA INOP 00000020 =) 
014556 000260 7550 00 010 7603 STA IOVHO ic 00000020 - 
014557 001662 7550 00 010 7604 STA IOVH1 00000020 
014560 002042 7550 00 010 7605 STA LOVH2 00000020 0 
nen 004214 7550 00 010 76n6 STA 1OVH3 00000020 * 
014562 TO07 TOVHE NULL 00000020 ve 
€€ @ 
ce 
le 
of 


no Oo NN © 


Oe N taal gt 
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ane ae NSIS, 297 0 ih aes (a) Ae OR a 2m ame VCR Ae OA OS, ee 
: 9S 
7609 % | | 6 
7610 * THIS SECTION INITIALIZES TRACE DIVISION. IF NO TRACE OpTION $e 
7611 % TRACE DEVISION IS REMOVED AND TRACE LINxAGE TRA OP IS TURNED - 
7612 * TO NOP IN nIiSPATC /MACRO D | zs 
7613 % 1g 
ThHl14 KH KKHKE KKH KE HK HK KR HHH KK ei 
7615 % CHECK IF TRACE OPTION IS SELECTED ex 
7616 * av 
7617 * TFST TRACE ON / OFF CONDITION 7 
1618 * ov 
014562 7619 TTR EQU % st 
0145462 017760 2350 00 O10 7470 LDA sO?7?777I77TTTITO~OSOOOTTT ve 
014563 700304 1151 00 000 Tari CMPA eCRTCTsePeCR ah 
014564 014605 6010 00 010 7622 TNZ ITROLO zs 
014565 700305 1151 00 000 7423 CMPA eCRTCT+1l99PeCR i 
014566 014605 6010 00 O10 7674 TNZ TTROLO Be roe weg 
0145467 700306 1151 00 000 7625 CMPA eCRTCT+299PeCR | ge 
014570 014605 6010 00 010 76276 TN2 ITROLO | es 
014571 177777 2360 07 O00 7477 Loa ZOL777779DL 
014572 700307 2111 00 O00 76278 CMK eCRTICT+390PeCR 
014573 014605 6010 00 O10 7429 TNZ ITRO1O 
7630 % 
7631 % ALL TRACE OFF 
7632 % 
014574 017756 2350 00 O10 7633 LDA ITRA1 *SET NO TRACE FOR «TROPN MACRO 
014575 700042 7551 00 000 7634 STA eCRTRVeePeCR 
014576 700044 7551 00 000 7635 STA eCRTRV4+299PeCR | ie 
014577 700046 7551 00 O00 7636 STA eCRTIRV449 ePeCR ez. 
014600 700050 7551 00 O00 7637 STA eCRTRV4+6e9PeCR :@ 
014601 014604 2350 00 O10 76438 LDA  =—SsST TRTRA | 92 
014602 700052 7551 00 000 74639 STA eCRTRV#BeePeCR 
014603 015142 7100 00 O10 7640 ~~ TRA ITRNO 2@ 
014604 000000 7101 00 O00 7641 TTRTRA TRA OoePO ez 
ee TR Oe ie ee we ee gt OO ee ee ee ee ee ee ee ee ee 
7643 % TRACE ONs TEST PARTIAL TRACE 
7644 % ; 
014605 7645 1TTROIO NULL 
014605 700304 2371 00 000 7646  &4LDAQ  eCRTCTseP.CR  ©}©@©“'™”©.0)~)hhCCT 
014606 014646 6010 00 O10 7647 TNZ ITROZO 
01466 JQO306 eze elele 648 \ a Ck +Ze99hr eC 
014610 014646 6010 00 010 7649 — TNZ ITROZ0 
650 * | 
7651 % ALL TRACE ON» NOP CALLING TRACE SELECT ROUTINE 
. 7652 * . 
014611 017757 2350 00 010 7653 LNA INOP 
O1461> OO7O y 00 O1Ld 654 TA XT SOL TOP R 
7655 | LINK TRACE OPTION TO MAIN PROCEDURE 
OL46L: 656 sTOE RAs (IYCALL eIYCALXeIYEXITs1LYEXTXeLYGO ; 
014621 7657 eTYPRT ITYCALLeYeCALL L 
nn 0? 67-55. 7658. @PYPRT  LYCALX eVe CAULK TT 


eg 


@» a | ~ 
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8S 
@ .: CN YT PEALE TRACE. Bb IVAS FON is@ 
9¢ 9S 
ae 014625 7659 eTYPRT  LYEXITsYeEXIT 
@:: 014627 7660 eTYPRT  LYEXTXeVeEXTX =) 
ES ; 014631 7661 eTYPRT LYGOTOs¥.2GOTO es 
2g 014633 000110 2360 00 O10 7662 LDQ DVOPT ; 2s 
@ : 014634 000002 3160 07 000 7663 CANO ODTLsDL <® 
e 014635 014645 6000 00 010 7644 TZF ITROL2 GO NORMAL 
oy 014636 7665 TOP TRAs (LYCALH®IYEXTH) és 
@» 014641 7666 eTYPRT TYCALHeYeCALH | SS a a ® 
ly 014643 7667 aTYPRT TYFXTHeYeEXTH 
y OO 014645 7668 TTROI2 EQU % 
@: 014665 014775 7100 00 010 7669 TRA ITRO25 
by 7670 % 
ey TA71\% 
@: TaT2 * PARTIAL TRACE = CHECK TRACE OF MACRO SFLECTION 
iy 7673 ** iv 
or 7674 aITP MACRO 
@« 7675 oF SET 0 
BE TH76 IFG eY#1le71 gE 
ie T7677 oF SET 2 
@: 7678 FLD =00010009DU 
se 7679 LRL oY#1 ce 
vE 7680 ~ CANAQ ITRTMP+eF ve 
@: Teal TZ #2 «@ 
ze 7682 FRSA ITRTMP+eF ze 
le 7683 ERSOQ ITRTMP+loeF 7 
@-: 7684 TRA #3 
6z 7685 #2 EQU * 6z 
ez 7686 ~1OP TRAsIY#1 
@ —_——— 7687 aTYPRT I1Y#1eYe#1 
92 7688 #3 EQU * oz 
gz 7689 e«CRSMe SET eCRSMer2 
@. 7690 ENDM eITP 
€z . 014646 7691 TTRO20 EQU % ez 
zz 014646 0304 2371 00 692 LDAQ aCRICT sore zz 
@ :: 014647 015136 7570 00 O10 7693 STAQ ITRTMP ek ® 
0z 014650 700306 2371 00 000 7694 LDAQ eCRTCT+29ePeCR oz 
i 014651 015140 7570 00 010 7695 STAQ ITRTMP+2 a 
@: 014652 7696 «1TP CALH «a @ 
ol 014700 T4698 elite CAIX ot 
@:_ a 014713 7699 eITP EXTH s® 
vk 014726 7700 alTP EXTT vl 
et 014741 7701 .ITP EXTX 
@: tp er seagate an me egy een ee :® 
" 014767 015136 2370 00 010 7703 LDAQ ITRTMP " 

i OT4770. O14775 GOL0 O00 O10 7704 TNZ TD TRODS GY 
@: 014771 015140 2370 00 O10 7705 LDAQ ITRTMP+2 « @ 
8 014772 014775 6010 00 010 7706 TNZ ITRO25 : 

L | TTOT OTHER TRACEES SELFCTED = SET TO SKIP PARTIAL TRACE ENTRY : 
@: 014773 O17757 2350 00 O10 778 LDA INOP °@ 
S G 

v 7 
@ ° @ 
A 
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INITIALIZE TRACE DIVISION 


014774 007012 7550 00 O10 77n9 STA TXTSOl 
014775 7710 TTRO25 EQU * 
014775 000316 6200 00 000 7711 FAXO eCRTEP #4 _ 
014776 700312 7401 00 000 7712 TXO SCRIEP 2 oPecR RACE ENTRY POINTER FOR PROCESSOR O | 
014777 000322 6200 00 000 7743 EAXO eCRTEP #9 | | ; 
015000 7005157401 00> 000 47a STXO. eCRTEP+lesPeCR SET TRACE ENTRY POINTER FOR PROCESSOR [OO 
015001 000326 6200 00 000 7715 FAXO eCRTEP+12 
015002 700314 7401 00 000 7716 STXO eCRIEP+209PeCR "T TRA NTRY POINTER FOR PROCESSOR 
015003 000332 6200 00 000 7717 FAXO aCRTEP+16 | | ” 
015004 700315 7401 00 000 7718 STXO eCRIEP +39 oP eGR F RF NTRY POINTER FOR PROCESSOR 
015005 017760 2350 00 O10 7719 LDA SOTTTTTITITTITVTT v@ 
015006 700342 7551 00 000 7770 STA eCRTTPsePeCR OPEN TRACE GATE is 
015007 006134 4704 07 O00 7721 LPPO SD.MDDeDL 
015010 000057 7211 00 000 7722 LXL} -MpISPsePO GET SD LOCATION OF DISP @® 
015011 015120 7410 00 O10 7723 STX1 TRVCOL SET 5D VALUE OF nISP i 
015012 000000 6350 11 000 7774 FAA Oel ee ee ee 
015013 000022 7710 00 000 7725 ARL 18 «< @ 
015014 015125 2550 00 010 7776 ORSA  TRVCO3+l SET SD VALUE OF DISP 00 
015015 000100 100400 000 7727 ~~ MLR o(1) MOVE eCRTRV CELL he 
015016 015110 0001 10 O10 7778 ANSCO TRVCELss1BR5 0X ®@ 
015017 700042 0001 10 000 7779 ADSCO ~—s- a CRTRV 9.9 18%49P6CR | a 
0150270 TOO2T1L 2201 00 000 730 LDXO eCRNPCs oP eCR ~ NUMBER © N ul: KO SUR = 
015021 000001 1000 03 000 7731 CMPXO = _-1eAU TEST SINGLE PROCESSOR «® 
015022 015031 6010 00 010 7732 UN? <>" {feos0° °° ONO et ae ee ee a sn eee 
015023 017757 2350 00 010 7733 LDA INOP NOP »sDL 00000020 . 
O1S094 O07T0L4 7o50"00- O10 77ae--- - SSTA- —- UXPSO2 00 eae ee eo ee ee 
015025 007015 7550 00 O10 7735 STA TXISO2Z+1 00000020 = 
015026 OOTOST T5950 OO O10 7736 STA TXT SOS I gg 
015027 007040 6200 00 O10 7737 EAXO TPUTEX 2z® 
015030 007026 7400 00 O10 7738 SYXO TX TSOG mmm‘ gg 
7739 * GZ 
LO. Oe SET ENTRY DESCRIPTORS 0 Tg 
7741 * ez 
—  QUBOSE.  @742 JTROSO. NULL gg 
015031 000000 6350 11 000 7743 FAA Os] r@ 
015032 OOLTT? 3750 03 O00 7744 ANA EOOOL TTT DU 
015033 000013 7710 00 O00 7745 ARL 11 6! 
015034 O15132 2550 00 O10 7746 ORSA SDOTE SET SD VALUE OF DYSP si 9 @ 
015035 015134 2550 00 O10 7747 ORSA SDPTE SET SD VALUE OF DISP ys 
075036 006 6360 746 E Dae 
015037 001777 3760 03 000 7749 ANQ =0001777sDU 
015040 000001 7360 00 000 7750 OLS i 
015041 000000 6200 02 O00 7751 FAXO 0 «QU | 
015042 015132 2370 00 O10 7752 LDAQ  SDOTE 
015043 600000 7571 10 000 7753 STAQ OeNsP6 SET SDeOTE ENTRY DESCRIPTOR , 
015044 a 636 754 AO P 
015045 001777 3760 03 000 7755 ANQ =QOOL7779DU 
015046 OO000!l 7360 00 O00 7756 QUS Lo Tg 
015047 000000 6200 02 000 7757 EAXO. OeauU 


015050 015134 2370 00 O10 7758 LDAQ SDPTE | 
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CU NTETAAL OT ZFOUUTRACE DIVISTON 
015051 600000 7571 10 O00 7759 STAQ Os09P6 SET SDePTE ENTRY PESCRIPTOR 
015052 7760 TTRMS EQU * 
015052 7761 ~ISLCT TR xSELECT TRACE OPTION 


et enn rememanaansannetr a aannncmenann tnneeaemaneretanttirtitn stent TO snnnenmnnennsnnatnetint ene nntreatnnnnannnntsineeneieer trustee ttt shen n  —ARNNtntiN tn 
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INITIALIZE TRACE MONITOR ~@ 
7 96 
Piso 00000020 ge 
71764 % INTTIALIZE FOR TRACE MONITOR ONLY IF SOMF TRACF 00000020. °°” © © 46 
; 7765 . 00000020 €¢ 
015043 OO0O10? 7220 00 O10 V?766 CXL TXeoPCL CHECK FOR MONTTOR OPTION |. OQU0UU0Z0~., 
015064 000001 3020 03 000 7767 CANX IXelspU 00000020 .® 
015065 O15150 6000 00 O10 7768 #44'ZE £XJTReE © NOT REQUESTED ©) SQQQO00207 ~~, 
015066 7769 eISETE 00000020 és 
55072 1770 ~IBASE MNTR. OO QQQ OOO ZO wv @ 
015074 7771 elYPRT EPG1eMN61eMN 00000020 ee 
— OL 5076 tifa eTSLCT MN SOON LZ , 
015107 015150 7100 00 010 7773 | TRA ITReE | | ov @ 
TTT HHH KKK HK HHH HHH KH KKH REE HHH KKK RK RH HHH al Se eee Se ee Se 
7775 & TRAcE ENTRy VECTOR (eCRIRV) * 
q 7 76 HHH IH HIE HK HHH HIE HIE IH HE HIE HE KE EER RK HK HK HK KKK KKKKKKHEKE 
7777 , INHIB ON Ly 
Sener we a oe Ee - CP Pe tT RVCE aN Ly. “=< -¢ -+.- © - — Se = nee ee eee ees SS ee ee me So Coe en pe 
015110 000002 7102 04 000 7779 TRA 2,IC | 
Oj5111 “000000 Oli2 07° 000 7780 —NOo |p:  -  —.... \ ae 


015112 000001 6306 04 


000 
015113 700056 7103 00 O00 T7782 RA 
015114 000001 6306 04 000 7783 EBPRO 


7781 EPPRO  1sIC eTROPN GREG (SYSTEM DOMAIN ONLY) . 


CRIRV+129—PeCR a 
TORERV ALE ee ees rROPN NONE (SYSTEM DOMAIN ONLY) 


1 1 ® 
015116 000001 6306 04 O00 7785 EPPRO LeICc eTROPN ALL (SLAVE DOMAIN) 
035117 700060 7103 00 000 7786 TRA eCRTRV+1l4e 9Pe 
015120 000000 4776 07 O00 7787 TRVCO]L LDP? ** DL @ TRPUT (SYSTEM DOMAIN) 
015121 674 78 TRA . TPU =e 99 
015122 000000 0112 07 O00 7789 NOP aDL *eTROPN ALi MACRO wAS REMOVED 
015123 O 12 | 90 P eVL 
015124 7791 TRVCO3 GCLIMB **,TOPNG eTROPN GREG EXTENTION 
015124 006664/1340 l VF ’ 9 : e @ e : 
015125 000000220000 000 VFD - LAO 09/0 eB/O al loNelleDe2/0e2/2,12/%% ee 
015126 500010 6767 00 000 7792 LOD6 DP.OTEs Pe eTROPN 2 OR SLAVE DOMAIN EXTENTION oe 
015127 7793 ICLIMB e«DR6 = 
OL15127 6000007] 340 O00 VED 3/909 ) Vt /Ual Ue /Me 
015130 000000201776 000 VFD 1/099/098/Oel/eNo1/0092/N92/0912/ DRE 
015131 000 0 794 R a9 
015132 7795 SDOTF FELLDSC 09029480 e** e TSAVED 
015132 0066146000013 010 VFN LE/TSAVED s 1/09 10/*%%93/094711 
015133 167400000000 000 VFD 10/480/221 224/092/0 . re 
U 96 SDPTE 5 909480 8k es 1 PU SPOS TOT 
015134 006762000010 010 VFD LA/TPUTSL 91/0910/%% 93/094/8 | 
015135 167400000000 000 VFD 10 /480/2Ze1924/092/0 
7797 INHTB OFF 
015136 7798 TTRTMPEBSS 4 
T7990 HHH KH KKH HK KKK KK HK HR HH KK . - 
800 * N Re A 0 Te UP MATR is 
015142 7801 TTRNO EQU * 
7803 * SET NOP IN eMDISP | ~ | | 
015142 7804 eTOP NOPDL» (IYSEVTsIYDISPsIYENBL eIVIDLFE eI YSCC) 


és | re 
19 [9 
a ye ne ee 
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gsc 
9¢6 
6s 015150 7805 TRF. EQU * 
@ vs 
eg 
es 
@:: 
oS 
6t 
r BY 
Ly a 
ov oY 
@: —— x) 
vy : vr 
ev \ = 
@. - ) 
me oenenremrerre \Y 
ov Ov 
@:: <® 
SE 8E 
LE : LE 
@ 9€ 9€ @ 
GE ee 
ve vE 
@ : «®@ 
ee : Ze 
ee ees le 
r ) o£ 0€ & 
62 ee 
82 ee 
@ £2 Le ® 
92 eR Ne 
ae ——————— G2 
@ ve v2 & 
£2 €z 
ee ce 
®. ee eee es . 
02g 02 
| 6h 6h 
4 ©: @ 
| at it 
91 . 
le: st ® 
| vi en 
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8 a Ne i Ns i a Re A eos 
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@: ' 
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@ |: INITIALIZE MULTI=*=PROCESSOR ~@ 


SS 7807 % gs 
@ .. 7808 * INTTIALIZE MULTIPROCESSOR ROUTINE 7 a 
€G 7809 * eS 
<a ee OLE LOO BMG WME, ~ EQU © es ee a ee 
@ . 015150 700171 2341 00 000 7811 SZN eCRACC+99ePeCR 00000020 ,@ 
0 015151 000003 6010 04 000 Tali2 NZ  +#§.3b3e1C 7 7... 77777777777 TK QQQQQOZO 5g 
a 015152 011207 6220 00 000 7,13 FAX IX sNOPpL INITIALIZE .CRACC+9 TO "NOP" TF 00000020 ee 
@. 015153 700171 4421 00 000 7814 SXL 1XoeCRACC#999P.eCR NOT PREV. INIT*D TO PROTECT US o00000z0 
ie 015154 700271 2221 00 O00 72815 LDX TXeeCRNPCesPeCR - 
» «4.25155 Q00001 £020 03° 000 Tails =  CMPX  INeleDU = 7 0 ee 
@: 015156 015252 6000 00 O10 7817 TZE IMPNF ov @ 
vy O15157 7818 elBASE (LDSHeRLSHeGTOPsEPPeCLE4sCLE7) SS Hs 
ev 015166 7819 eITBASE (CLE8»CLE9) SUBD3740 
@. 015171 “F820 -TRASE (RDOs0CNOCLDD). noe 
. 701200 7821 TSXMP BOOL 701200 yee te 
ov 0 i 1822 el OP XMPae(lelVvorneleR roe leGhUrel ek PPele ele Oy 
®@ « 015204 7823 TOP TSXMPs (Il eCLE891eCLE9) SUBD2750 | «< 
ge : 015207 TRBI4 «TOP TRA (Te#RDOeTeDCNOsT.CLDD) . 00000020 de 
ls 015213 015244 2350 00 O10 7825 LNA IMPSRD 00000020 be 
@.° }.  ©4015214 002244 7550 00 O10 7826 STA SBDeMP — OOO NNN LO —E 
se 015215 7827 eTCHNG IMPPP349X-ePP3 ss 
ve 0152 7828 eTCH MPOR 9Xe ve 
@ =: 015223 7829 eTCHNG IMPIOsXeDMIO 00000020 | 
a 015276 015250 2370 00 010 7230 LDANQ LWSQ 00000020 meee ee 
te 0152277 001446 7550 00 O10 7R231 STA TeSLCO 00000020 te 
ee: 015230 001447 7560 00 O10 7a32 STO) LeSLCOHD TT QOO000 20 oe 
62 015231 7833 eISLCT MP *SELECT MULTI“PROCESSOR 62 
“we et gee a eG | CCN ON ee a 
@ 015242 015532 7102 00 010 7835 TRA IMPEND : 
92 015243 000001 7102 00 000 7836 IMPPP3 TRA MPFNB=MPBASE ee ee ee Pe ee 
sz 015244 000005 7102 04 000 7837 IMPSRD TRA 5eIC SUBD2780 x 
eo: 015245 000021 7102 00 000 7838 TMPOR TRA  — MPOR@MPB AS DD 
ez 015246 000053 7102 00 000 7839 IMPIN TRA MPCRT=MPBASE 00000020 e 
zz 1324 4 zz 
@ 015250 600110 2363 00 000 7840 LWSQ ELDA eSLWSQ9 oP eSSA 90000020 -@ 
02 01525 o0200 75 000 TRS oKLWSOsPNoP et pueeeve 07 
‘i 7842 INHTB OFF ét 
@: 7843 * a) 
un 7844 % CHECK PRODUCTION MODE GATING ie 
1 SSS ea SS 
eo: _. 015252 7846 TMPNF EQU ~~ * 
fi =——wiagieane OOOO e360" 00 Ol0 That = Loa DVORl.. > Se ee 
6] 015253 000001 3160 07 O00 7848 CANQ OPRDsDL 
@®:  ... £OT5254 0 E010 00 O10 R49 TNz MDEND 
Li 015255 7850 eT YPRT TeDACNeo eCRNSG+PeCR*¥32768 
ono ~~ SSO”t™Ct:C::,,,—CCO A DR ¢ O7 6230 00 O00 : KX “NOPD 
@ : 015260 7852 ePRNDC aoa hate 
e 0153 7853 ePRD 2D5 : 
: 01542) 72854 ePRDC *PSTOs9600+ sSXL3 
ee: eee OL5451 va55. «PROC «eOGIS¢9?00s5SsL5 °° +& &5*& * * * + °+* © ©€©3©6CCCOCOCOU Ue enn re 
S 
@ : 


ee nn eS 
09 
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| INITYALIZF MULTI #PROCES SOR ~@ 

015454 7856 ePRNC 0 QGT09975095XL3 = 
| 015461 7857 ePRNC 2©GTMO9985095XL3 ———— _@ 

015445 003475 2350 00 010 7858 LDA PSTST Be 
015513 003464 2350 00 O10 7860 LDA LRMST <@ 

Ce OTS514. CO TBALO™~C PRI @LRMS 99900 STAs gg 

015520 003473 2350 00 O10 7842 LDA LRMOP2 ‘ 
’OTSS2100°0 786300——CO PRN @LRMOSSS50 STR DD 

015526 003514 2350 00 O10 7864 LDA GTMST iz 
Te EBB AT TROD PROG. eG TMS 9S BOO OSTA oe 
7866 ORGCSM «CRSMe+100  @ 

015532 7847 TMPEND EQU * | Eb 


3 
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02 12=@27"79 09,322 H6600J7.057 GCOS IV 4VX DISPATCHER 791219D1SP PAGE 223 - 
SR SI SR lec Rc Sc RO a 2 MS lA ee Le, SG 
8S 
TNITIALI2Z2& PRIORITY I1/09URG is® 
7869 * | 
7870 x INTTIALIZE 170 RATE AND URGENCY CONTROL 2100s sss 
7R71 * ES 
ee ee ee LO moe — ATO cTOR TE NEQU. © 2 | mee RS ne tte rn eS Ae Se eT a ee 
015532 000100 2360 00 O10 7,73 Lp OPTION .<@ 
015533600000 3760 03 000 Ta74 ANG OTO¢0URV DURAN OPTION 
015534 015667 6000 00 010 7875 T2E IPRE *NOs NOT SELECTED SS 
7877 * ADD COMMON ROUTINE FOR I/0 OR FOR URG i 
7878 * ov 
015535 017746 2220 00 010 7879 LOX 1X sDSPEND /* LOAD CURRFNT BASE » @ 
oo "OT553600,°©— 7B8800O~—~—~—«~«C CHING SCEPROM2 aK eDCN Da 
| 015541 7881 eICHNG IPRCM39XeEB8 | - 
OTS 54640 78RD )O™~*~CtCW PRT) XeF BBA PROMS CM 0 
015546 7883 eTYPRT XeAPEEsPRCM39CM a 
OO BBB COUT BRG)O™”™”™”™” TY PRY) XeAPE BO PROMG OOM OO 
015552 78A5 eTYPRT XeAPE2ePRCM49CM «@ 
0155560 ~—78R860..—~<“—«s~<C CT LCC M!”O”~C~C”~”C”.VUC«S SECC «COMMON ROUTINE 
015565 600000 1160 03 O00 7887 CMPQ OLO+OUR sDU - 
015566 015620 6010 00 O10 7888  °@ © « &«©*;xTNZ  &OTPRIO ¥NOT BOTH SELFCTED 2 ©... OOD OOOO 
7889 * GE 
i 890 * DD P == 
| | 7891 # 
615547 O17746 2220 00 O10 Ta9D 7 LOK ER DSPEND 
015570 7893 eICHNG IPRIULeXeEDS 
015573 7894 eTCHNG IPRIU2ZsXeDCN2 
015576 7895 eICHNG IPRIU3sXeEL10 | 
a 01560 7896 eIlSLCT IU 70 UR 
015612 015667 7100 00 010 7897 TRA IPRE *GO NEXT 
7898 oz 
7899 LINKAGE OPERATION WORD a 
ee GON ee Ee ee 
eee 7901 © INHTB = ON s 
015613 000001 02 00 060 (902 TPRCM2 TRA PROCM2°CMBA ~~ S as 
015614 000011 7102 00 000 7903 IPRCM3 TRA PRCM3*CMBASE i ) 
015615 OO00001 7012 00 000 794 TPRIUL TSX  CKEVTXsPRIUIMIUBASE 
015616 000005 7102 00 O00 7905 TPRIU2 TRA PR1U2"IUBASE a 
015617 OOO00L 7012 00 O00 T9N6 TPRIUS TSX  CKEVTXsPRIUL@TUBASE Hz ® 
7907 INHTB OFF 7 is 
fy es OCR 0 re gw we gg eg eg a ge ee ee ee 
7909 * 1/0 THROUGH PUT OPTION SELECT i @ 
7910 * a aa 
| . 015620 7911 TPRIN FQU * | 
0154290 400000 11460 03 000 7912 CMPQ OroOsDU ~~ CCC ZO OPTION .CCOCCSSCS~O~OST ee ee 
015671 015651 6010 00 010 7913 TNZ IPRUR *#NOs MUST BE URGENCY OPTION i 
Teg eet ce cet ten wee ede un OO ge wg a ge eg I ee FE ee de eg es ee 
015622 017746 2220 00 010 7915 LDX 1X sDSPEND , ; 
TO OB EAB TOT G—~™OC TCG «TPRIOT Ke ED 
015626 7917 eICHNG IPRIO2ZsXeEL1O 
UU SUESGBT 7978 FCHNG OE PRIO3 9X DONS TD 


‘ i oo 
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INITIALIZE PRIORITY I/058URG 
015634 7919 eTSCT:— 16 
015645 015667 7100 00 010 7970 TRA IPRE 
79A1 
2992 OPTION LINKAGE WORDS 
SE ae sg a a Oa ae ee a a ag 
| 7924 JNHTB ON 
015646 000001 7012 00 000 7925 TPRIN1 TSX CKFVTXePRIOL=IOBASE 
015647 000001 7012 00 000 7976 IPRINn2 TSX CKFVTXePRIOL=IOBASE 
015650 000005 7102 00 000 7927 TPRIN3 TRA PRTO2=IOBASE 
7978 INH1TB OFF 
7929 * 
7930 % URGENCY THROUPUT OPTION TS 
7931 1% 
—_—_ =F OE565l 7635 TPRUR. FOU © °C en eee ego ge 
015651 017746 2220 00 010 7933 LOX 1XeDSPEND | 
015652 7934 eICHNG YLPRURTsXeDCN2Z 
015655 7935 eISLCT UR « @ 
7936 
7937 —TNHTB ON —— 
615646 000013 7102 00 000 7938 1TPRURL TRA PRTIUL“URBASE : 
7939 INHTB OFF 
7940 — 
015667 7941 TPRE EQU x 


eg 


OW” 


SE 


Sie Oh ea SE oe Par _ Ee Ie ee aE ee ta ee 
09 03 
Ss. 19487 02 12727779 09,322 H6600N7,057 6cns IV 4VX DISPATCHER 791 219D1rSP PAGE 225 — 
gs 8S 
@ . INITIAL IZ2& B PRIORITY ~@ 
9¢ 9S 
gs 7943 * SS 
@ . i 7 INTTIALIZE CLASS B PRIORITY OPTION @ 
€S 7945 * €g 
o 015667 000100 2360 00 010 7946  Lna “OPTION zs 
@ 015670 400000 3160 07 000 7947 CANQ OB eDL - 

a 015671 015767 6000 00 O10 7948 TZF IBPRE —PRNOT SELECTED SKIP 
. 015672 000000 6230 00 000 7949 FAX 1¥ 0 a 
@: 015673 000000 6220 00 000 7950 ax. - 140°: OD eee _— 
ie 015674 7951 TBPR1 FQU ® 
ov 015674 OOOI0] 2360 I2 010 7952 LDA BPRTIORsIX ¥GET OPTION PATCH 
@: 015675 015712 6000 00 010 7953 T25 IBPR4 *NOT SPECIFIEN GO NEXT oe 
$i 015676 007553 7560 13 O10 7954 #4STQ  £BP.SNBsIY ©”. < tet i 
s 015677 000007 3760 07 O00 7955 ANQ OBT eDL *TIME QUANTUM 
@. 015700 000027 7360 00 000 7956 QLs 1845 ————¥POSITION TO 32 MS UNIT — — | 
ts 015701 015703 6010 00 010 79587 TNZ IBPR2 . 
Ms Ots702 001615 2360 00 O10 7958 &4.\-hQ QTM NOT SPECIFIEN 50 STANDARD oy 
@ : 015703 7959 TBPR?2 FQU * oc @ 
ve 015703 007562 7560 13 010 7940. — STQ.BP.TOTs1Y *SET TIME QUANTUM - 
i 015704 O00101 2360 12 O10 7941 Lno BPRIORsIX ie 
@ : 015705  O00070 3760 OF 000 7962 ~~ ANQ OBR DO «® 
ee 015706 000003 7720 00 000 7943 ORL 3 | | ae 
ve OTS7TO7 0 . 6000 00 O10 17944 F BPR ENO PE 30 IN AC VATU a ve 
@ =: 015710 007544 7560 13 010 7945 STQ BP.TALslY «® 
ze -_ O15S711 7966 TRPR3 EQU % ze 
te 015711 000001 6230 13 000 7947 FAX TYeloelY #*POINT TO NEXT ENTRY | - 
@.: OTB IT2 7968 TBPRG COU oe @ 
w 015712 000001 6220 12 000 7949 FAX IXeloIX *POINT TO NEXT OPTION PATCH ye 
e 015713 OO0O000S 1020 03 000 7970 CMPX  IXeseDU "IS IT END ge 
@ 015714 015674 6010 00 010 7971 TNZ IBPRL *#NO~e NEXT 2® 
ge — SO ESTTS~O~*CST 2.” PASE (BPRD eo BPPI eBPUL eBPUS 9 BPUS BPEL BPE) 
ze 015725 7973 ~IRASE 8PF3 00000020 
@. 015727 7974 TYPRT X.sFNBPeBPUPI BP So ee pe ee eee ee ee eae 
ee 015731 7975 eTCHNG TBPEN2eXeENEW # 

22 976 Pe is BR 9A® zz 
@. 015737 7977 eTCHNG IBPP19XePP1 2@ 
oc!” 015742 7978 aTCHNG IBPRDOI»XeAPRD OZ 
di 015745 7979 eTYPRT XeAPP1eBPPeBP , si 
@: 4 980 el YPR eA Ne 9 .® 
Zh 015751 — 7981 elSLCT BP at 
91 1 AZ 8 . 91 
@: 7983 | INHTB = ON a @ 
vl 015743 8 ED > a ic See eR . 

i 015744 000036 7102 00 000 7985 1BPP1 TRA BPP-BPBASE 
@.: 615745 OOOLl2 7102 00 O00 7986 TBPEN2 TRA BPFN@BPBASE 
ie 015766 000026 7102 00 000 7987 TBPRN1 TRA BPRD1*BPBASE 
‘i aaa a aay <5 - 1) — a RER  (°1” ~ a  | = RRR RR aaa 
@ : 015767 7989 TBPRFE FOU * «© 
8 3 
Z Z 
& 9 9 & 
G 
@: 


eee ca RN Nt eA er 
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INITIALIZE A PRIORITY 
9S 
7991 * gs 
7992 % INTTIALIZE CLASS A PRIORITY OPTION ROUTINE TTT EO 
7993 * €S 
015767 OOOL00 2360 00 O10 7994 °° #&35LNA MOTION. Se rae RY Oe ee ge eg 
015770 200000 3160 07 000 7995 CANG OAsDL 7 7 s@ 
015771 016124 6000 00 010 7996  #'Z2&  #|APRE NOT SELECTED SKIP 00000, 
015772 700271 2351 00 000 7997 7 LDA eCRNPCoePeCR /* SET CONTINUOUS DISPATCH COUNT ie 
015773 000021 7710 00 000 7998 ARL 18-1 ~ FOR AsPRIORITY PROGRAM ©... OG, 
015774 007723 7550 00 010 7999 STA AP.DSP CPUNO * 2 ib 
015775 000020 6360 00 000 80n0 FAQ AP.~’TS2. SET PJT TABLE SIZE Gy 
015776 016637 7560 00 010 8001 STO PJTSZ TO SET SDePUT ov @ 
015777 700303 5541 00 000 8nn2. STC} eCRPJT+leePeCR OPEN GATE OF PUT ©. 
8003 \% ey 
BOOS * SFT PJT ENTRY FROM OPTION PATCH  }}©}” 
| 8005 * rc 
016000 000000 6220 00 O00 BONG FAK TKO 
016001 8007 TAP] EQU x «@ 
016001 000104 2360 12 010 8008 LDQ APRIORsIX ee 
016002 016015 6000 00 010 g80n9 TZE IAP2 *NOT SPECIFIED THIS wORD i 
016003 000007 3760 07 O00 8n10 ANO OAL #DL | «@ 
016004 016015 6000 00 010 Bg011 TZE LAP2 | ce 
016005 000001 7360 00 000 8012 als 1 | 7® GET INDEX IN PJT TABLE 96 
016006 000104 2350 12 010 8013 LOA APRIOReIX :@ 
016007 000006 7710 00 000 8014 ARL 6 SR GE ae ee ee a ee, 
016010 000006 7350 00 O00 ~8ni15 ALS 6 | | te 
016011 O17712 2550 06 O10 8016 ORSA PUTSK»OL 7*® SET SNUMB BUT LEFT BIT 30=35 000 or @ 
016012 001615 2230 00 010 8017 LDX 1Y¥eTQTM *SET STANDARD TIME QUANTUM . 
016013 200000 2630 0 YOO 8018 OR X TY sAPeRVD 9 DU AND T THIS ENTRY FR way : = 
016014 017713 7430 06 O10 8019 STX LY ePUTSK+l sQL 2@ 
; 016015 80270 TAP2  EQU K NE ee 
016015 000001 6220 12 000 8021 FAX IXeloIX &z 
016016 000003 1020 03 000 8072 CMPX IXe3eDU + CHECK END OF OPTION PATCH 70002 @ 
016017 016001 6020 00 010 8023 TNC TAPL &z 
. 02 B0?24 TAPS FQU % zz 
016029 000100 2360 00 010 80925 LDQ OPTION *#CHECK IF AN FNTRY IS RESERVFD FOR | 2:@ 
016071 O00007 3760 OY 000 8076  ANQ OAQPsDL OPERATOR VERB SKS 
016022 016026 6000 00 010 8027 TZF TAP4 *NO 
016023 000001 7360 00 000 8078 QLS 1 7® GET ENTRY INDEX 
016024 100000 2350 03 000 8029 LDA AP.OPRsDU *SET THIS FNTRY RESERVED 
160? 0 6 8030 ORS TSKile 
016026 8031 TAP4 EQU % 
Se eee tiene verre Taew ey Se a OR ee ey ee ene Se ee ee ee ee 
8033 % SFT UP A PRIORITY ROUTINE 
8034 * 
016026 8035 eTBASE (APP1sAPP2sAPT1 sAPT2) 
0160 8036 2tB (APDL® : 
016037 8037 eTBASE (APB1sAPB2) 
— ———< 6042 ~——C« 3B eT RASE (APEsAPELeAPEZ) (9000000 TS 
016046 8039 eTBASE (APL19APL2) 
016051 B040 eTRASE TOLL 


a a per a a a ea 
oo 


1248T 02 12027679 09.322 H6600572057 GCOS IV 4VX DISPATCHER 791219D1S5p PAGE 227 ie 
INITIALIZE A PRIORITY s@ 

9S 

710200 8041 TRA BOOL 710200 6s 
016053 8042 TOP TRA® (XePP1lsXeDSCNs Xe EBSA sXe FBBeXaRDLAsXeFNEW) > 

016062 8043 eTYPRT EPJUTLsAPJT eAP re 

— —s«saOL6064 ~=~=— B044—O—™ eTYPRT YeSLOTeAPLPCK AP 0 

016066 8045 eTYPRT XePP1leAPP1 sAP 

016070 8046 eTYPRT  XeMSCNeAPDCNOAP 0 gg 

016072 8047 eTYPRT XeEBSAsAPEB SAP : ev 
~~ 016074 _ 8048 eTYPRT XeFBS2APEE SAP 0000000 OO 

016076 B049 eTYPRT XeRDLAsAPRDI eAP os 

~ CS EBOTOO”™”™©)DdumB050~™CC”””CO NYP) Xe PFNEWSAPEND OAP 2 
016102 °700270 2361 00 O00. 8051 LNOa eCRMKP eo ePeCR | +@ 

016103 000000 6360 02 000 8n52 FAQ QU “OMENUERT GOUNT - ©" 0 oo 2 cette eee eee eC ee 

016104 000010 7720 00 000 8053 QRL 8 ey 
016105 000100 2760 07 O00 8054 ora =0000100eDL 7/® TZE CONDITION 2 

016106 007772 7560 00 010 8055 STO APRPTX fi 


a A seen wttnterrrnnww err sheen estntnesh st chsh PEPPERS irs 


016107 000100 2360 00 O10 8056 Lda OPTION a 
016110 000007 3760 07 000 8057 ANQ OAOP sDL «@ 
016111 000023 7360 00 O00 8058 OLS 1841 - 
016112 010410 2560 00 010 gBn59 ORSO 1eAPN2 ie 
016113 8060 eISLCT AP Se — sane a ) 
016124 8061 TAPRE EQU 3 | ee 


ne 
nr A ER 
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02 12727779 09.322 H6600J7.057 GcnS 1V 4VX ~ DISPATCHER 791219D1TSP PAGE 228 Se 
TNITTALIT2Z2& jTRACE DUMP 
9S 
eemrers 8063 * ss 
BOK4S * INTTIALIZE TRACE DUMPER INTERFACE eee 
8065 * MUST BE INTTIALIZED AFTER A=PRIORITY INITIALIZE 
| BOb6 * 
016124 000110 2360 00 O10 8047 LOO DVOPT | 
016125 400000 3160 03 000 8048 CANO OTRD»sDU /* OPTION SELECTEDee 
016126 016176 6000 00 010 8n49 TZF ITRDE NOe 
016127 8070 eTBASE (TPUT+TDSL) oe 

016132 700303 2341 00 000 8071 SZN eCRPUT+leePeCR /* IF AwPRIORTTY NOT SELECTED 
016133 016163 6000 00 O10 8072 TZE ITRD5 KT “PRIOR INTERFAC 
016134 017715 6230 00 O10 8073 FAX LY sPUTSK+#APeESZ+1 
016135 000000 6350 00 000 8074. FAA a) } ee 
016136 000001 3360 07 O00 &8n75\ LCa LeDL /* SEARCH FOR AN ENTRY NOT RESERVED 
016137 700000 6760 03 000 8076 ERQ AP wEXC#APeRVD+APeOPR sDU 
016140 016300 5202 02 000 8077 RPT APANSZsAPeESZ9TZE % 
016141 000000 2110 13 000 8078 CMK oly. ~ ns ei 
016142 016176 6010 00 O10 8079 TNZ ITRDE /* NOT FOUNDe IGNORE OPTION « @ 
016143 777776 2350 13 000 8080 LDA mAPeESZ IY oe 
016144 001615 2750 00 010 8081 ORA TQTM 
016145 200000 2750 03 000 8naR2 ORA ~ APsRVDeDU a — .° 
016146 777776 7550 13 000 8083 STA mAPeESZs1Y | | ce 
016147 O10651 2550 00 O10 80R4 ORSA TDAP RIN ALTZE TRD ROUTINE DATA be 
016150 777775 2350 13 000 8085 LDA mAPeESZ=1alY «@ 
016151 000013 7350 00 000 80R6 “ALS 11 eg Re ge ga ee ee 
016152 777777 3750 07 000 8087 ANA m1leDL 
016153 000200 2750 03 000 8088 ORA ZAPRWT eDU 2 er ne e 
016154 010650 7550 00 O10 8089 STA  TDAPE | ez 
016155 777775 6350 13 000 8090 FAR APeES2u=191Y S*® INETIALTZE PIT POTNTER 0 gz 
016156 017712 1350 03 O10 8091 SBLA PUTSK»DU WHICH HERF RFSERVED er 
016157 010533 2550 00 010 8092 ORSA TDFEPT | OO gg 
016160 000022 7710 00 000 8093 ARL 18 gz 
0161461 010650 2550 00 010 #8n94 ORSA TDAPE 7 @ 
016162 010647 5540 00 O10 8n95 STC) TDAP I /* SHOW A=PRIORITY SELECTED ez 
OT OL6S  BODG PTROS FOU Be 

: 016163 8097 eTYPRT EP63eTRD63eTD 2®@ 

016165 8098 ~ eTSLCT TD i oz 
016176 © 8099 ITRDF FOU # 


6k 
a® 


Lh 
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Be pg eg a ne a a a ag eg Ta Oe ee ee ae 
02 12°27°79 094322 H6600472057 Gcos IV 4VX DISPATCHER 791219DTSP PAGE 229 ze 
, 8S 
aa TNITIALIZ2F MODULE COUNT ~@ 
9S 
B10) * gs 
B102 % INTTIALIZE MODULE COUNT ROUTINE AND LINK IT —s 3 a 1 
8103 * es 
016176 OOO107 7220 00 O10 8104  LXL IXeSPCL CHECK IF MOnULE COUNT OPTION ©. <6 
016177 000002 3020 03 000 8105 ANX 1Xe2eDU xSPECIFIED .~@ 
d1e200 016205 6010-00010 Bt NZ WONT oro 0020 
016201 B3107 aTOP NOPpL » (le CAPAsI eCAPRB) 00000020 6y 
016204 016251 7100 00 010 8108 TRA IMCNTE ov @ 
016205 8109 IMCNTF NULL 00000020 i. 
8110 
016205 8111 oTSFTE | 
SHAT “Bila ~tRASE  (MCLDeMCPDsMCALeMCVG) = 
016216 8113 aTBASE (CAPAsCAPB) 00000020 i 
016221 8114 elYPRT EP62eMC62 9MC | mm ) 
, 016223. 8115 e (CHNG IMCLD*XeLOAD iy 
OB 22B OB TG™”OCT TCHNG IMCAL Xe ENT OF 
016231 _ 8417 eTCHNG IMCPD+XePUSH | «<@ 
SS | 016234 8118 eTSLCT MC Se eS tS aaa 8 
016245 016251 7100 00 010 8119 TRA IMCNTE | Le 
8120 a INHTB ON «® 
016246 003011 7102 00 O00 81271 TMCAL TRA MCAL=MCBASE ce 
016247 OOS001 7102 OO O00 8192 TMCLO TRA MCLDsMCBASE 
016250 003004 7102 00 000 8173 IMCPD TRA MCPD@MCBASE «® 
8124  JNHTB OFF ze 
016251 8125 IMCNTF EQU % le 
oo @ 
62 
8d 
a® 
92 
G2 
z@ 
£?¢ 
ee 
2 @ 
02 
o®@ 
: . “Zt 
@ 
i®@ 
« ® 
Z 
» @ 
@ 


1248T 02 12"27-79 09,322 H6600N7.057 GCOS IV 4VX DISPATCHER 791219DTSP PAGE 230 | is 


: 8s 
NETL ATZE MEASURMENT OPTION 
9S 

8177 «IX MACRO 
8128 LDA V¥IV 
8129 STA V#IE 
8130 LDA Te#1 
8131 STA V#1V 
8132 ENDM atx om 
8133 «73eS MACRO _ 6Y 
8134 eTRASE (#1 9¥#143) ov @ 
8435 2 1X #1 i 
8136 ENDM c125 . 
8137 «TaF MACRO « @ 


8138_ eTRASE (Hl o#HLteZeH lea oHl +6 oe H1L+ fe #1 +8) e 
8139 | o IX #1 
81460 ENDM lek 
8141 eTeC MACRO . 
8142 eTBASE (#1e#141) - 
aeeee, 8143 ol X #1 «® 
8144 ENDM ele : BE 
016251. 8145 VF FQU % 
016251 000110 2350 00 010 8146 LDA DVOPT /® CHECK OPTION 
016252 200000 3150 03 O00 8147 CANA OVF sDU ce 
016253 016501 6000 00 O10 &142 TZE IVFE. en We. hag 
016254 8149 eTSETE «@ 
016260 B150 o1eS DCN] gg 
016267 8151 Pe DCN3 te 
| 016276 8152 sec DCN2 | o@ 
016305 8153 oJek DCN4 | éz 
016320 8154 e125 OVH1 ez 
016327 8155 elek OVH2 z® 
016342 8156 atac SLOl oz 
016351 8157 ites SLC2 sz 
016360 8158 slat SLC3 z2@ 
016373 8159 slek SLCO4 ez 
016406 8160 ole Stc5 zz 
016415 8161 eTBASE (CAL1*CAL2eCAL39CAL4) | z@ 
016422 B162 atx CALL og 
016426 8163 ox CAL 2 61 
| — O164327 °° B164—~—~—C XC CB aes a @ 
016436 B1465 aIX CAL4 Lt 
L164 8166 eTBR ( +/f9 q pe 9 * a 
016447 81467 eTYPRT VPUSHVsVPUSH»9 VF i @ 
4 8168 elyYP fs) ’ ’ ot 
016453 8169 eTYPRT VLOADVsVLOAD 9 VF 
016455 8170 2 TYPRT LoS? 
016457 014130 0420 00 010 8171 ASX 1X«VPUSH :, 
096440 ~O14T3S2 0420 00 O10 8172 ASK XV TPS TT 
016441 014134 0420 00 O10 8173 ASX 1XsVLOAD | « ® 
‘01644? O14136 0420 00 010 8174 ASK Kg 
717200 8175 XEDOP BOOL 717200 
016463 8176 ~toP XENOP 9 ( ’ Ve eVTLDV) 


ee Ne NE nee ; Se 
~@ 
ETE reece uneasiness etna eran eS esenenNssnne  ssSsestnen SARS uva PUSS senses seit SSTSr ASRS ASE SO 


tee : : ; : 09 @ 
1248T 02 12—27=79 09,322 H660057.057 GCOS IV 4VX DISPATCHER 791219DTSP PAGE 231 - 
8g 
INITILATZE MEASURMENT OPTION _.@ 
9S 
8177 gs 
016470 8178 ~1SLCT VF ~@ 
016501 8179 1VFE EQu * Sea er SE a ee ieee ea a PY eer ra eer RT 
8 1 80 * zs 
Bi8l * INTTIALIZE TIME TRACE OPTION <@ 
8182 x 0s 
016501 000107 7220 00 010 813 LXL TXeSPCL 
016502 016522 6050 00 010 #184 : TPL ITTE aaa NO OPTION SKIP °° © ee 
016503 O17746 2220 00 010 8185 LOX 1X eDSPEND 5 
— OB BOKC~C«~STRG”~™~™”CC CHING =TTTTRAOXeTTY © 7® CINK OP 
016507 8187 eISLCT TT oo @ 
016520 016522 7100 00 010 e188 TRA ITTE ©. ee 7 a " 
8189 INHTB SAVE sON ep 
016521 000001 7102 00 000 8190 TTTTRA TRA TTIME™TTBASE v@ 
8191 INHTB RESTORE | ig 
016522 8192 TTTE  EQU % oe 
6 @ 
BE 
Soe Se ee en ee et et te re ee ce ee ce ee ee 
x» @ 
GE 
ve 
«® 
ef 


1€ 
O€ & 

62 

z 
-@ 

Zz 


g 
Z 


9 


rd 


é 
1 
0 
nites : 6k 
PT eget ee een nem epeiegrt wR yore ewan ney msmares mirage fav ee Pape 6 me wes YRS See ree Seren ee ee s®@ 


at 


@ 
-@ 
cA 


a NI ise] wy is) wo ia o on 


sg 
O02 12927"79 09.322 H6600J7.057 GCOS IV 4VX DISPATCHER 791219DTSP PAGE 232 
MODULE COMPACTION is @ 
9S 
8194 * 
8195 * FOLLOWING OPTION LIST(OPLIST)s RECOMPACT MODULE ES 
8 1 96 * €S 
016522 8197 TCMP EQU * | zs 
016522 014367 2340 00 010 8198 SZN OPCNT xANY OPTION SFLECTED 6 
016523 016531 6010 00 O10 8199 TNZ ICMP1 *YES os 
016524 017755 2340 00 010 82n0 SZN IPTCH2 *NOe THEN ANY PATCH ew 
016525 016566 6010 00 010 82n}1 TNZ ICMPE YESe NO OPTION AND SOME PATCH » GO a 
016526 006515 6220 00 010 82n2 FAX IXsPTCH2 *NO PATCH APPILTED HERE | Ly 
016527 O17746 7420 00 O10 8203 STX 1XsDSPEND ~ DELETE PATCH AREA 
016530 016566 7100 00 O10 8704 | TRA ICMPE *G0 Gp 
. 016531 8205 ICMP1 EQU * ~ vp 
016531 014367 7220 00 O10 8706: L XL. IX sOPCNT *NOe OF OPTION SELECTED ev 
016532 000000 6350 00 000 8207 FAA 0 *PTRe zy 
016533 001762 4704 O07 000 8708 LOP POwelSReDL . 
016534 001762 4714 07 000 8709 — LDP =~) PiselSReDL — ee aaa aa 
016535 8210 TCMP2 FQU * | «® 
016535 014335 7230 01 O10 8711 Ex TYsOPLISTsAU = =—COM KOR GINAL ADDRESS ee 
016536 014335 1030 01 010 28712 CMPX LY sOPLISTsAU ASSIGNED ADDRFSS | ts 
016537 016550 6000 00 010 8713 TZF ICMP3 *SAME. NO NEED TO MOVEe SKIP | oe 
016540 000000 5074 13 000 8714 AWNX eTYsPO *SENDER se 
016541 014335 2230 O1 O10 8915 LOX TVsOPGT SOA ie 
016542 100000 5074 13 O00 8716 AWDX e1YoPl *RECIEVER 
016543 014352 2360 01 O10 48717 LDA OPSZL5eAU *SIZE OF ROUTINE 
016544 000002 7360 00 O00 82718 QLS 2 
016545 000140 1005 40 000 8719 MLR (lel)e(lel) *¥MOVE “4 
016546 000000 0000 02 000 8770 ADSC9 99QUsPO0 6z 
~016547 100000 0000 02 000 arrl ~ ADSCO os eQuUePlL ge 
| 016550 8222 TCMP3 EQU * 
016550 000001 6350 01 000 8273 FAR  JesAU  XNEXT ENTRY ©™©}3§©”©§©3©— : 9z 
016551 777777 6220 12 000 82724 FAX TXenleIX sz 
016552 016535 6010 00 O10 8275 TNZ ICMP2 *GO MOVE NEXT a) 
82276 *NOW MOVE OPTION LIST &z 
016553 O17746 2360 00 O10 8227 LDO DSPEND kFADDR OPTION er 
016554 000107 2560 00 010 8228 ORSO SPCL *SET SPCL PTR. a) 
016555 014335 1160 03 O10 87299 &CMPQ  £OPLIST+»DU  ¥IF SAME NO NFED TO MOVE ©. |.©@\.©”. 62 
016556 016564 6000 00 O10 82730 TZE ICMP5 . 61 
016557 014335 6304 00 O10 8731  EPPR PO sQPLTST 000 o @ 
016560 000000 6314 02 000 8732 EPPR PleeQU As 
016541 J B23 MLR ys 
016542 000000 0000 64 000 8734 ADSC9 9 seNOPT.*4eP0 
016563 100000 0000 64 000 8235  ANSCO  os.NOPT.*4ePIl ee ee vi 
| 016564 8236 TCMP5 FQU * = et 
016564 014367 7220 00 O10 £82737 | IXsOPC SIZF TE 
016565 017746 0420 00 O10 8738 ASX 1XsDSPEND : r 
— OBBBG””~™CM SS ECMPE OED Rg 
eee nr a Tee ee te SE a ee te a ee ee ee oe ee ee ne ee 
@ 
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02 12"279"79 09,322 H6600J7,057 GcnS IV 4VX DISPATCHER 79121907SP PAGE 233 zs 


TNITIALITZ2F DESCRIPTOR! 5 c® 
9g 
B2Gl * 
R242 % THTS SECTION CREATES DESCRIPTERS AND PUT TT INTO SYSTEM So eee 
8243 * LINKAGE SEGMENT €S 
B244 % zs 
82465 % SDaGTM SIZE GTMNs442 x) 
8246 * SpeLRmM SIZE (eCRMKP) +5 ae 
B247 % S5D.ePDP SIZE (eCRMKP) +1 > 
8248 % SDePID SIZE (eCRMKP)41)*4 MOD 2 ov @ 
8249 * Spe-PUT SIZE (PJTSZ) eo 
B250 % SDsPRQ. SIZE .(eCRMKP)ele 0 re 
8251 % S5p.580 SIZE 320 ov @ 
a ee: |!!! Se SP Pe Pee. gR O° te en em OTe mg ay 
8253 x | $p.582 SIZE 256 OR O 
Sa Se a eee eg ee en ees qetge SeorgR 1s a ee ee 
| : 8255 # Sp.TDS SIZE (eCRNPC)*16 a 
EPG SR OS SUBD 2860, 
8257 % $p.15S SIZE 256 OR O SUBD2870 « 
8258 % 5D.255 SIZE 256 OR O —  —CO*—7?WYBOZSBO —=E 
8259 * $p.355 SIZE 256 OR O SUBD2890 
8260 * S5D.5DP SIZE 20 £5 
8261 # SDaSVC SDeSVX SDePTE a 
016566 0166 0 10 8262 3 R ID | 
| - 8263 * DATA SKELTON OF DESCRIPTER 
0165467 000000011007 #000 ——f a a. ee = ee Bog wee ee ee ee a 
016570 8264 GTMeSDFSTDSC Ost o%*e (RoW) MODULE GATE TABLE ig 
016570 000000150600 000 | VFD 18/*%92/099/7eFD93/094/ 
016571 o00000000000 0900 VFN 34/%% 92/0 6 
] O16572 8265 LRMeSD STOSC Oot eke (Reo eS 
016572 000000150600 000 VEN 18/%*%92/099/eFD93/094/0 2z®@ 
616573 00000000000 000 VFO 34 /#Rs _ 
016574 8246 PDPaSD STDSC Oaxk%o%%— (RoW) PROCESS DISPATCH PRIORITY 
016574 6 000015060 000 FA L8/#¥ 9270997 eFD93/08 
016575 000000000000 000 VED se eee ; ez 
UVLO e BO PITeSdD & ks Et Rs (RoW ORT y =: WS eae 
016576 000000150600 000 VFN 18 )##92/099/e Fp s3/094/0 
016577 OOOCD0G00000N 000) OCS GSR ASSO 
016600 B26B PRQeSD STODSC Oet*s%*o (RoW) - PROCESS QUEUE SEGMENT a 
016600 O00000I50600 ~~ 000. COSVFTD—~—~CSC RH PTO AGT PD a SIO FIO 
016601 oO00000000000 000 VFN 347%% 92/0 ‘i 
OT660 R269 0450 DSD Tete 3209 (RaW ACK MOD 8 - > ei 
016602 000477750601 000 VED | 18/320"192/399/eFDs3/094/1 : 
016603 | 5 ae . 
ee 016604 8270 SS1eSD DSDSC Oaxkok%e (RoW) IF CPU NO«l CONFIGED 
016604 000 60 00 FA 18/09 197 eaFDe : 
016605 000000000000 000 7 | VFO 34/%%92/0 
: a .«@ 9 § § \ 9 
016606 000000150601 000 VFD 18/002/009/eFDs3/004/1 
016607 O o000r 00 VFO 34 SRR 9 , : 


016610 8272 $S3eSD DSDSC Oak ko *%s (RoW) Z 


1248T 


a gr on OCD TUES vO ESOC cmon Or TC PT a ET a ee EIR A ee Ee eT 


0? 12827=79 09.322 H66004N7.057 GCOS IV 4VX DISPATCHER 791L219DTSP : PAGE 234 ie 
TINITIALIZ2&F DESCRIPTOR! S 
9S 
016611 000000000000 000 VED 34/%*92/0 | i 
a 016612 B273 085e5D DSDSC O9%%*s2569(R9W) SUB-DISP 575 FOR PROC*R OO  SUBD2800. °°» n@ 
016612 000377750601 000 VF 18/256"192/399/eFDs3/094/1 a 
016613 OO00000000000 #000 VFD 3GsRRS27O0 ee a ee 
016614 8274 155.25) DSDSC Ook ake e (RoW) AND OTHER PROCIRS IF REQD SUBD2810 ~@ 
016614 000000150601 000 VFD 18/O0e2/099/eFD93/004/1——<Ctst‘SsOS™S Sere gs en spe 
016615 000000000000 000 | VFD 34/%** 92/0 ev 
; 016616 8275 255eSD DSDSC Os#*et¥s (RoW) SUBD2820 oo @ 
016616 000000150601 000 VED 18/092/099/eFDs3/094/1 He 
016617 000000000000 000 ~ VED BQUHRGCTO.. gg Sean gs ne Oe ri 
016620 8276 355e5D DSDSC OnKe%eX%e (RoW) SUBD2830 ov @ 
016620 000000150601 000 - VFN 18/092/099/eFD93/094/1 Sg ee i 
016621 000000000000 a VFD |. 34/%%92/0 
01662 8277 SBP: SD DSDSC Oox%¥e200(ROW)  £SUB@=DISPATCH LINKAGE... ©6©S6UBD28400°0 -@ 
016622 000023750601 oe VED 18720"192/399/eFDe3/094/1 " 
01 oe 23. 000000000000 OOO ©. WEI) S4/®RI2/0 
016624 82978 SVCeSD F8DSC 0909480 9%#*sCALLS95S | «® 
016624 004032400010 O10 ©} VFR L8SCALLSeL/T TOTEM S570 GSB sss a 
016625 167400000000 000 VED 10/480/2=1924/052/0 
016626 R279 SVXeSN FELINSC 09024B800%HSCALLX9S TS = 
016626 004025400013 010 VFD LB/CALLX91/1910/%%93/094/11 - 
016627 167400000000 OOO — VED LOS4 BOS Om 1 aCaPOROTO 
| 016630 8280 SVYeSD FLINSC 0909480 9**sCALLY9S «@ 
016630 004013400013 °° 010 VED LESCALLYsL/191LO7SRH STO G/L LT TE 
016631 167400000000 000 VED 10/480/2=1924/092/0 ie 
016632 BIBL TDSeSD ELINSC OsQeGBOeKH eT OS 
016632 004361000013 010 — VED LB/TDS91/0910/%%93/0946/11 i éz 
016633 16740000000 000 VFD 10/480/2-1% 12/0 
016634 __ 82782 SVP.5D FB8DSC 009480 e**sCALLP 55S | PMME5890 
016634 004036400010 010 VFN LBE/CALLPeL/1L LOSER 93/0 94/8 
016635 167400000000 000 VFN 10/480/2=1924/092/0 
016636 000040 000000 000 8783 GTMNO. ZERO 32 *NOe OF GATED MODULE ©.) 
016637 000000 000000 000 82784 PJTSZ ZERO * *NOe FOR PRIORITY JOB ez 
8285 * PHA S zz 
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02 12"27-79 09,322 H6600J57.057 GCOS IV 4VX DISPATCHER 791219N1SP PAGE 235 ee 
ENN ETT ALPE ZF DESCRIPTOR’ 5 @ 
9S 
016640 8287 1DSC FQU % ; 6s 
B27RBR kek Kk KH KK HHH KH HH HH HHH HK re | 
8289 x GET END OF .«MDISP BODY ES 
016640 017746 2350 00 010 8290 Loa NSPEND PED Fe PO ge eg ge ee eee 
016641 000007 0350 03 000 8291 ADLA 7epu ~@ 
016642 777770 3750 03 O00 8792 ANA BQ 
016643 017746 7550 00 010 8793 STA DSPEND 
8294 eH KH HHH HHH HR ER KH EHH RAH KH 
8295 x ABSOLUTIZE LAST ADDRESS OF .«MDISP IN wWSQ OFFSET i 
016644 O17750 0544 00 10 8796 STN 41D 
016645 017751 2350 00 010 8797 LDA IDSCW+1 
016646 000020 7350 00 000 282798 ALS 16 _ 
016647 017746 0350 00 010 8799 ADLA DSPEND 
016650 017753 7550 00 010 8300 STA LAST 
B21 K*¥ HEH KKH HEH KKK HH HK HK HK iS 


8302 * 


016651 017753 2350 00 O10 8303 LDA LAST | 
016652 017754 7550 00 O10 8304 STA NEXT | | - 
8305 *¥# Ke KK KKH HHH HH HHH HHH HK 
8306 *  INTTYALIZE STANDARD DESCRIPTERS 
8307 * ce 


TELL SLRS SSN rset rearrested SSS Lv eS ses Gn UN RA sDACNECPRI RWBSC et ‘LE HESRERDENA nh 


8308 STBAS. MACRO 


ve 
8309 LDA NEXT «® 
8310 ARL. 16 ze 
8311 STA #1 *STORE BASE FIELD INTO DESCRIPTER a 
8312 ENDM. STRASe ~~ @ 
8313 STSIZ. MACRO ge 
8314 CRSM SAVE ® OFF -_ —— aS San, ae oe 
8315 INE "AK2t at Atal 2z® 
8316 FAQ #25QU 9z 
8317 ASQ NEXT sz 
8318 SBLQ =0200000eDL — ~~ oe 
8319 ORSOA #1 €z 
8320 ERSM RESTO ze 
| 8321 ENDM STSIZe z2@ 
8372 * INTTIALYZE $50 = 553 BY CONFIGURATED PROCESSORS = 02 
016653 700271 2221 00 000 8373 LOX TXeeCRNPCoePeCR " 
——<*S YTS S54 83204 STBASe SS500eSDel ; i a eas | 
016657 001000 6360 00 O00 8325 FAQ 512 “A 
| . | 6 8376 Size or ot 
0166463 000000 6230 00 000 38327 BAX TY 30 «@ 
——< T6664 —OSC*«*PB TDSCY FOU # =. eles 1 ped eS eee eg Se Sige 
016664 777777 6220 12 000 8379 EAX Rechts *IF ALL CONFIGURES PROCESSOR#SS/S 
0166465 016677 6000 00 O10 8330 TZe IDSC *IS MADE GO NEXT =— ee ee ee 
016666 8331 STBASe (SSla eSDeLeLY) | “i 
O16671 I 636 EEW FAQ ? 


016672 8333 STSIZe (SS1eSDsIY) 
016675 000002 6230 13 000 8334 EAX T¥s2elY XPOINT TO NEXT SSN.SD 
016676 016664 7100 00 O10 8335 — TRA IDSC1 

016677 8336 TDSC? EQU * 


1248T 0? 1227"79 092322 H6600J72057 GCOS IV 4VX DISPATCHER 791219DTSP PAGE 236 " 


016700 8339 STBAS. 055eSD+1 SUBD2940 e 
26 016703 001000 6360 00 000 8340 FAQ 512 SUBD2950 


TNITIAL ZF pESCRIPTOR!S 


8337 * INTTIALIZE SUB=DISPATCH SAFEPSTORE STACKS SUBD2920 
016677 700271 2221 00 O00 8338 LDX 1XeaCRNPCeePeCR UBD2930 


016704 834) STSIZe 0554S) SUBD2960 
016707 000000 6230 00 000 8342 | _ FAX T¥e0 SUBD2Z970 06 
016710 777777 6220 12 000 8343 TDSS1  EAX TXenleIX SUBD2980 en 
016711 016723 6000 00 O10 8344 TZE 1DSS2 | SUBD2990...~— ow @ 
016712 8345 STBASe (155eS5D+lel1Y) SUBD3000 is 
016715 501000 6360 00 000 8346 FAQ 512 em 9 ¢] 9 0] ©] 0) 7 0 Ran 
016716 8347 STSTZ.  (15Se5Del1Y) SUBD3020 «@ 
016721 000002 6230 13 000 8348 FAX TYe2elY SUBD3030 ve 
016722 016710 7100 00 010 8349 | TRA IDSS1 SUBD3040 
016723 8350 1mSS? NULL ——————_T HPT SUBsDISP LKG DESCIS OT SUBD3030—— ©) 
016723 8351 STBASe SDP.SD+l SUBD3060 o 
016726 8352 STRASe IFSDP+ ov 
016731 8353 STBASe IFSDP+9 SUBD3080 «® 
016734 8354 STBASe IFSDP+13 SUBD3090 BE 
EEE 8355 STRASs IFSOP4+17 SUBD3100 | 
016742 000024 6360 00 R356 FAQ 20 SUBD3ITO -® 
Bh paar 68357 STS1Ze SDP.SD SVUBD3120 se 
| 016746 8358 STRASe GTMeSD4l 
016751 016636 2360 00 010 = &359 LOO GTMNOe - 
016752 8360 STStZe GTMeSD ze 
016755 836] STRAS« LRMeSD+] , le 
0167460 700270 2361 00 O00 8342 © LDO eCRMKP 9 ePeCR —— — c® 
O16761 83463 STSIZe LRMeSD95 . 6z 
a 016765 8344 STRBASe PDP.SD+1 
016770 700270 2361 00 O00 8345 LdO. eCRMKPsePeCR | un 
O16771 B3A6 STSIZe PDP.»SDe2 eCRMKP+2 (0 ENTRY + SUB=DISP) SUBD0060 # »&©»=—OS 
016775 8367 STRBASe« PUT»SD+l] 
017000 016637 2360 00 010 8368 LNA PUTSZ z@ 
017001 017005 6010 00 010 8349 TNZ 1DSC3 ez 
017002 000600 2360 07 000 68370  £4LDQ =O6009DL  *IF NO PIT OPTION se 
017003 016576 6560 00 O10 8371 ERSO PJTeSD *PJT SEGMENT TS NULL SEGMENT z@ 
017004  O17011 7100 00 O10 8372 TRA TDSC4 gg 
017005 8373 10SC3  FQU * 
017005 8374 STSIZe PUTeSDs0 @ 
017011 8375 IDSC4 EQU * a 
5 O1 B376 TRASe RQe 
017014 700270 2361 00 O00 8377 Loo eCRMKPssPeCR 
O17015 8378 . STS1Ze = PRO.SDs17+16 eCR LE TABLE) + ” 
B379 KK KKH KKK HK KKK HH HK 
OO BO ROMH!™”!”~OCMNEC TYALTZE ENTRY DESCRIPTERS 
eee B3R1 % 
170? 1 6134 4714 B3R2 DP Te5De : 
017022 000057 6220 00 000 8383 | EAX IXeeMDISP 
017073 100000 2351 12 000 8384 LDA e1XeP!I 
017024 Q01777 3750 07 OOO 8385 ANA =O17779eDL *GET ISEGeNOe INLS | 
017025 000007 7350 00 000 83864 ALS 7 ~ SHIFT TO ISEGNOe FIFLD 


a a a eT eS a cr OP aN aD ara con an aoe caror maar cage ran casomecke-aamercaeaecesaeaa aceeamemsmceaaearememmmencgemmcmencmrmmmmemerameemmmmarsmematseaceserarare cesaaee erat ree a a oe ee Ie a a a 2 ve eT 


BS os 35 2, 
6s 1948T 02 1227-79 09.322 H66004N7.057 Goas IV 4VX DISPATCHER 791219DTSP PAGE 237 
@ .: ——— INITIALIZE DESCRIPTOR'S 
9S 
ss 017026 016624 2550 00 010 8387 ORSA SVCaSD 
@ .. 017027 016626 2550 00 010 8388 ORSA SVXe5D 
es 017030 016630 2550 00 010 8389 ORSA SVyeSD 
#8 017031 016632 2550 00 010 8390 ORSA TD5e05D 
@ : 017032 016634 2550 00 010 8391 ORSA SVP.SD PMME5910 
oF 8392 eK KKK KH HR HHH H H 
sy 8393 * STORE DESVRIPTER INTO SYSTEM LINKAGE 
@. 8394 x : 
LY 8395 TOSC. MACRO Ly 
ov 8396 TDRP #1 
@: 8397 EAX 1X0#10eSD 
vy 8398 LDN PleslXsP3 
ep 8399 eSTNSL PleSDe#l 
@. 8400 IDRP 
tv 8401 ENDM 1DSCe 9 
oY | 017033 8402 IDSCe (GTMsLRMe PDP ePUT oe PRO 9550 e551 95520553) oe 
@ : 017035 006027 6350 00 000 EAA SD.GTM | 
. 017036 OO17?77 3750 03 000 ANA SCO re ee ee rn a 
le 017037 000001 7350 00 o00 ALS l 
@ - 017040 600000 0515 01 000 STD PIsOsAUeP6 
ae 017043 006031 6350 00 000 FAA 5D.LRM | ee 
ve 017044 001 0 00 200 9 — 
®: 017045 000001 7350 00 000 ALS l = ) 
ze 017046 600000 0515 01 000 STD PIleOeAUsP6 a Or eee See 
ie 017051 006036 6350 00 000 EAA SD.PDP 
@ .: 017052 OO1L777 3750 03 000 ~ ANA 200017779DU ad ae ae 
a 017053 000001 7350 00 000 ALS i ee 
we 017054 600000 0515 01 000. 5ST “PYSOSAUSPO. ay ee ge ee ma apne ee ey 
@ 017057 006040 6350 00 000 EAA SN.PUT z® 
92 017060 OO1777 3750 03 000 AN OOO tsbU*. °. * 
e2 017061 000001 7350 00 000 ALS l 
@ 017062 600000 0515 01 000 STD PYsOehUeRP6: ~~ -* ee caine en rs da eee 
Ez 017065 006042 6350 00 000 FAA SD.PRQ €z 
a 017046 OOL?TTT 3750 00 A =O001 7 
@ 017047 000001 7350 00 000 ALS 1 z® 
oz O017070 600000 9515 01 000.  - © Sip. PIeOsAUspe | "~~ © mR Se 
si 017073 006003 6350 00 000 EAA 5p.550 si 
@: 017074 OOLT77 3750 03 OOO ANA ROQOLTT TOD ot © 
i 017075 000001 7350 00 000 ALS 1 
91 017076 600000 0515 O1 000 STD PT s0sAUeP6 91 
@: 017101 006004 6350 00 000 FAA $p.SS1 | 
. O17102 OOLTTTT 3750 03 O00 7 BNA BOQOT TTT OU 
et 017103 000001 7350 00 000 ~ ALS l 7 zh 
@: 017104 600000 0515 01 000 | STD Te09AUsP6 : | 
‘ 017107 006005 6350 00 000 EAA $D.8S82 , 

o1 TOntlio. © . | i 
@: 017111 000001 7350 00 000 ALS at | | 6 @ 
s  OM?7L12 600000 0515 OL 000 et. DP <Oehler6 0 eae ee 

; anesE: 006006 6350 00 000 FAA S$p.883 

@:; 01711 OOL777 3750 03 600 ANA zQ0017/77sDU.~—OCS~=tétst‘SN EG AR OE ea es ee ee ee 
S 

@ : 


02 12°27=79 09.322 H660057.057 GCOS IV 4VX DISPATCHER 791219D1Sp PAGE 238 6s 
ee ee ema SS We ey es Wis es Oa ee RR a Me A: er ne ee ee eae 
9S 
017117 000001 7350 00 000 ALS 1 ss 
017120 600000 0515 01 000 STD PT eOsAUsPé rs @ 
| 017121 8403 1DSCe (0$$915$9255935S59SDP) | $UBD3140 © 
017173 006064 6350 00 000 FAA $D.0SS ee ee ee 
017124 001777 3750 03 000 ANA =0001777sDU <@ 
017125 000001 7350 00 000 ALS L. 0s 
017126 600000 0515 01 000 STD PI eO0eAUsP6 
017131 006065 6350 00 000 EAA S$D.1S5 
017132 001777 3750 03 000 ANA 20001777 sDU 
017133 000001 7350 00 000 ALS 1 
017134 600000 0515 01 000 STD PreOsAUsP6 
017137 006066 6350 00 000 | EAA 5p.255 vy 
017140 001777 3750 03 000 i ANA "sQ0017779DU ey 
017141 000001 7350 00 000 ALS 1 © 
017142 600000 0515 01 000 STD P1sO0sAUsP6 is 
017145 006067 6350 00 000 FAA 9D.3595 | a 
017146 001777 3750 03 000 ANA =00017779DU «@ 
017147 000001 7350 00 000 ALS 1 ee 
017150 600000 0515 01 000 STN PT sO0sAUsP6 
017153 006070 6350 00 000 | EAA $D.SDP 
017154 001777 3750 03 000 ANA =00017779DU se 
017155 000001 7350 00 000 ALS 1 aS oo a ee 
| 017156 600000 0515 01 000 | STD PIT sO0sAUsP6 «® 
017157 B44 1DSCe CSVC8SVXOSVY STDS) gg 
017161 006124 6350 00 000 FAA $0.S5VC 
017142 OO1777 3750 03 O00 ANA =O0017779DU | 
017163 000001 7350 00 000 ALS 1 6z 
017164 600000 0515 O1 000 STD PTO oA PO gg 
017167 006122 6350 00 000 EAA Sp.SVX 
017170 OO1777 3750 03 000 ANA eO00LTIIsDU:. SO ee a 
017171 000001 7350 00 000 ALS 1 
017172 600000 0515 01 000 STD PT eOeAUsPé 
017175 006123 6350 00 000 EAA SD. SVY ez 
017176 OOl??? 3750 03 000. ANA SQ00L7??9DU gg 
017177 000001 7350 00 000 ALS 1 
017200 600000 0515 O01 000 STD PTeOQsAUsP6 gg 
017203 006023 6350 00 000 EAA S$D.TDS | 
0172046 OO1777 3750 03 O00 “ANA =Q00177?sDU. 
017205 000001 7350 00 000 ALS 1 tt 
017206 600000 0515 01 000”... °»&» STM + PYeOoAUePO 2222 gy 
| 017207 B405 IDSC. (SVP) PMME5930 
O17211 OO6L57 6350 00 O00 777 EAA SD SVB 
017212 001777 3750 03 000 ANA =0001777 DU. | et 
017213 000001 7350 00 000 ALS 1 a®@® 
017214 600000 0515 01 000. STD P1s0sAUsP6 m 


12487 


= : 7 : oo 
02 12"27"79 09.322 H6600J7.057 GCOS IV 4VX DISPATCHER 791219DTSP PAGE 239 = 
INITIALIZE CR KLSEGMENT @ 
9S 
8407 * gs 
8408 * CRe KL SEGMENT INITIALIZE ROUTINE Oe a eS ee ae 
8409 * EXECUTE CELL SET UP | - 
, B4il # GATE WORD _.. | s@ 
8412 * eCRDS e Ge e a CR, ee 
8413 % eCRCOM+ls eCRGPG+ls eCRSCT+1 - 
B414 % eKLSRM+39 eKLMMGs1 i ii a 
8415 * SCU CLOCK START TIME i 
8416 * FRACE ov 
8417 % eCRTEP eCRTRV eCRTTP | w@ 
8418 * PROCESSOR PROCESS vy 
8419 * aKLKPS 
8420 % ENTRY DESCRIPTER ,° 
8471 % SD.SVC SDeSVX iv 
. 8427?2 * EXECUTE CELL SET UP ov 
017215 006134 4714 07 000 8423 LDP PT »SDeMDD»DL | «@ 
017216 000057 6220 00 000 8474 FAX  XeeMDISP = = — *MODULE NUMBER TO GE 
017217 100000 7221 12 O00 84275 LXL IXesIXoPI PULL DIRECTRY 
017220 017246 7420 00 010 8476 STX IXeLDP7 SET «MDISP 5D IN LDP? INSTRUCTION ~ x 
| 030000 8427 SCR3  BOOL 03n000 ‘e 
Ol?271 030000 2620 03 000 84278 ORX  IxXeSCR3eDU | ve 
017222 017505 4420 00 O10 8429 SXL TXeISSSK+eWSGIS /* SET SEGID OF DISP ALSO HERE «@ 
017223 017246 2350 00 O10 8430 LDA LDP? ) a ag 
017224 017241 2360 00 010 8431 LDA CRCAL *TRA OP WORD 
017225 700002 7571 00 000 8432 ° #&4;4S5STAQ eCRCALeePeCR *95ET UP EXEC CELL OF eCALLC .®©””©~... x 
017226 017242 2360 00 010 8433 LDO CRCLA 6z 
OV7227 700004 7571 00 O00 8434 STAQ —CRCEAISESCR ORMALLA ere 
017230 017243 2360 00 010 8435 LDO CREXT z® 
017231 700006 7571 00 000 8436 STAO eCREXT 9 9PeG Ke 92 
017232 017244 2360 00 010 8437 LDO CRGTO 
017233 700010 7571 00 O00 8438  #4|STAQ  eCRGTOsePeCR  ‘%eGOTO ©. ———_ © 
017234 017245 2360 00 010 8439 LDQ CRGTA 00000020 s 
017235 00030 2/1 OO D00 8440 AC) eCR AagereCk Re GOrOer Blelsreieieras cars we 
017236 017247 2350 00 O10 8441 LDA CRPJT | 7 2 
O172a7 700302 7551 00 O00 8442 STA eCRPITePe ee is 
| 7 8443 CRPJT IS SET UP IN OPTION INITIALIZE (AND 1 TO UPPER) e 
017240 017250 7100 00 O10 8444 ° &4+TRA TGATE Tg 
| | 8445 INHIB 9 ON dt 
017241 70 E 03 00 000 8446 CRCAL TRA ALLHee eDIoP?sPeCh CoUN0NZN = 94 
017242 704044 7103 00 O00 68447 CRCLA TRA CALAH@eeDISPsePeCR 00000020 | | 
017243 4123 7103 00 000 8448 CREXT TRA EXT=aeDISPs Pet ey 
017244 704344 7103 00 O00 8449 CRGTO TRA GTN=eeDISPssPeCR | 00000020 a 
17245 704356 710 00 8450 CRGTA TRA 3 : 1@ 
0172466 Q00000 4776 07 OOO 845) LDP? LOP PaCRok*eDL 1M 
0 hs HO000 02 0 YOO B452 CRE RA 9 A=PRTORITY BDTSABCED | ot 
3 8453 INHIB OFF ; @ 
ee OR ne eee aoe mS COREN GATES... Tg 
017250 700077 5541 00 O00 8455 IGATF STC}1 eCRDSP+1leePeCR ; 


017251 700723 5541 00 O00 8456 STC eCRFSG+leoaPeCR 


02 12"27"79 09.322 H6600572.057 ecos IV 4VX DISPATCHER 7T9L2Z19DISpP PAGE 240 a 
INITIAL IZ2&FCR KLSEGMENT 
9S 
017252 700725 5541 00 O00 8457 STC] eCRFSP+199P._CR de 
017253 700001 5541 00 O00 8458 STC1 eCRJST2ePeCR 
917254 700435 5541 00 O00 8459 STC eCROGT+l9ePeCR ee 
017255 700071 554] 00 000 8460 STC1 eCRACKHLeoPeCR 
Or 7256 700406 5541 00 O00 8441 STC1 eCRCOM+1L99PeCR | .@ 
017257 700426 5541 00 O00 8462 STC1 eCRGPGt+leePeCR 6 
017240 700462 5541 00 000 84463 STC} eCRSCT#+1LeePeCR 
017261 700362 5541 00 000 8464 STC1 eCRACF4+1leePeCR TS ee ee -@ 
017242 006133 4714 07 000 8445 LDP PI »SDeKLoDL Ly 
017263 10005] 5541 00 O00 B4A6 STC1 oKLSCC+le? - 
017264 100057 5541 00 000 8447 STC aKI SRM+399P] cd 
017265 100163 5541 00 000 84468 STC1 EMG eG a ae 
8469 \% SFT START UP TIME 
017246 500040 4131 00 000 8470 RSCR SCUCLK 9 9P5 -@ 
017267 700264 7561 00 000 8471 STO eCRLCK99PeCR 
017270 100265 7561 00 O00 8472 STO RRC LaIaG eC SSS SSS SSS SSS ee 
017271 700266 7561 00 000 8473 STQ eCRLCK4#299PeCR .® 
727? 700267 7561 00 O00 B474 STO PERUECK ea eureCh.. Ne are, a ee ie Ree ee 
| | 8475 * PROCESSOR PROCESS S/S POINTER - 
017273 000022 6350 00 000 8476 EAA eKIKPS4+4 | «@ 
017274 100016 7551 00 000 8477 STA eKIKPSoePI = 
017275 O00002 6350 01 000 B478 EAA 29AU #NE R = 
017276 100017 7551 00 O00 8479 STA eKLKPS+looPlI «®@ 
017277 000002 6350 01 O00 84aA0 EAA 2 sAU ze 
017300 100020 7551 00 O00 84.21 STA oKi KPS4#2e9P]I le 
017301 000002 6350 01 000 84A2 EAA 2eAU «@ 
017302 100021 7551 00 000 8483 STA eKILKPS4#39ePI | 62 
017303 016602 2370 00 O10 84a4 LDAQ $5005) “*55R DESC Ee ee ee Ss eS ee 
017304 100016 7571 20 000 8485 STAQ aKLKPSoteP] z® 
017305 016604 2370 00 010 8486 LDAQ $51e5D 92 
017306 100017 7571 20 000 8487 STAQ eKI KPS+lo%oPI sz 
017307 016606 2370 00 O10 B84aR LnAQ $52SD x@ 
017310 100020 7571 20 000 8489 STAQ aKLKPS#29%oP] se 
017311 016610 2370 00 O10 8490 LDAQ $5305D ze 
017312 100021 7571 20 O00 8491 STAQ eKLKPS4+3 9% 9P] z@ 
oe he | 8492 * SUB=DISPATCH SAFESTORE POINTERS SUBDSI60.. 0 
017313 000070 6350 00 000 8493 FAA oKI SDS4+4 SUBD3170 ‘i 
O17314 0064 7551 00 8494 STA eKI SD —SUBDST BO a ® 
017315 000002 6350 01 000 8495 FAA 2eAU SUBD3190 F 
01 16 00065 7551 00 O00 8496 A eKl SDO+199F UBDSZ00 oe 
017317 000002 6350 01 O00 8497 FAA 2 AU SUBD3210 
OT 7370 100066155100 000-98 STRESS PT 
017321 00002 6350 01 000 8499 EAA 2sAU SUBD3230 
017322 100067 7551 00 000 8500 STA eKLSDS+300P1 | SUBD3240 eee 
017323 016612 2370 00 010 8501 LDAQ 0S50SD SUBD3250 - 
017324 100064 I 20 000 85n2 AQ EYES 3 
017325 016614 2370 00 010 85n3 LDAQ 1554050 : SUBD3270 
017376 100065 7571 20 O00 85n4 STAQ eKI SDS+] 9% 280 8 
017327 016616 2370 00 O10 85n5 LNAQ 25545) 9UBD3290 
017330 100066 7571 20 000 8506 STAO eKi. SD5S420%sPI 


1248T 


—- e | : o@ 
02 1282779 09.322 H66004N7.057 GCOS IV 4VX DISPATCHER 791219NTSP PAGE 241 iY 
es TNITIALITZFCR KLSEGMENT x ) 
ee 9¢ 
017331 016620 2370 00 010 8507 LDAQ 355e5D SUBD3310 ig 
017332 100067 7571 20 000 8508 STAQ eKLSDS439%OPL SUBD SI200... Oe, 
BS09 RK KKH KH KK HHH HHH HH HH HH 7 
TO TO CUNT EALYZE PID ENTRY FOR POPM ROCCO mS 
017333 006024 4714 07 O00 g511 LP PreSpePID spe .@ 
017334 000030 2350 OF O00 851202 CDR 26D eo 
017335 100005 7551 00 O00 8513 STA ePNPOPK44le9P] *WSR7 = 24 FOR ROLL CALL a 
8594 % ALSO OPEN PST ay 
017336 006136 4714 07 O00 8515 LOP PI eSDePSTeDL ie 
017337 100000 5541 00 O00 8516 STOEL 0ePL TT 


a 
vl 
et 
a® 
EL 
OL 
« @ 
3 
Z 
| » @ 
; S 
vt 
ee ee ee ee a ee en ee - @ 
. @ 
t 
ee Se & 


O02 12°27*79 09,322 H660047.057 GcnS IV 4VX DISPATCHER 791219DTSP PAGE 242 = 
NTT AL IZ FE SEGMENTS  UmhUmUhUmUmUmUmUmUmUmUmUmhUmUmeeses—‘_is—s—s—s SD 
9S 
8518 * . ss 
| 8519 * THTS SECTION MOVES THE ROUTINE ITSELF IF NECCESARY - 
8520 * IFSFG ROUTINE FILLS UP CREATED SEGMENTS 
8571 * zs 
BSI2 RH KKK HR KH RH HH KR HH KH HHH | .@ 
8593 % MOVE THE FILL UP ROUTINE HIGHER THAN NEXT AVAIL AREA © 94 
017340 8524 TMOVE EFQU * | 7 
017340 017754 2350 00 010 8595 LDA NEXT ow @ 
017341 000007 0350 03 000 8576 ADLA 7seDU i 
017342 777770 3750 03 O00 8537 ANA =8eDU 
017343 017754 7550 00 010 8578 STA NEXT *xSET TO MOD 8 
017344 000000 4500 04 000 8529. STZ oIC 
017345 017751 2350 00 010 85301 LDA IDSCW+1 
017346 000020 7350 00 O00 8531 ALS 16 | 
017347 017370 0350 03 010 8532 ADLA IFSEGsDU *ABSOLUTIZF IFSEG ROUTINE ADDRESS 
017350 017754 1150 00 010 8533 CMPA NEXT *TF IFSEG IS HIGHER OR L 
017351 500000 6031 01 000 8534 TRC sAUsP5 *NEXT AVATL ANDRESS» NO NEED TO MOVE 
017352 017754 2220 00 010 8535 LDX IX sNEXT : ae 
017353 001764 6230 00 O00 8536 FAX LY oXXX*4G MOVE SIZE IN BYTES 00000020 ye 
017354 500000 6315 12 000 8537 EPPR PraelXeP5 *POINT TO MOVE ADnDRESS °° ©. “oc @ 
017355 000140 1014 40 000 8538 MRL, (ol) e(lol) *MOVE THE ROUTINE se 
017356 017370 0000 13. O10 8539  ANSCD IFSEGo9XS gg 
017357 100000 0000 13 000 8540 ADSC9 99X3eP] - | 7 «® 
017340 500000 7101 12 O00 8541 TRA 9IXeP5 ENTER INTO MOVED ROUTINE ©. Ge 
8542 * | 
8543 * | JFSFGROUTINE MAY OR MAY NOT MOVED. IT MUST BE CODED FLOATABLE == 
8544 * 62 
8545 * RK KK KR KR KR KR RR KE KR KR RE OS ate ee ee 
| B546 % CLFAR ALL THE SEGMENT SPACE | n® 
017341 000007710004 000 SS Se ee ar ge 
017370 8547 IFSEG BEQU * : ez 
017370 000000 4500 04 000 8548 STZ Ic z® 
017371 000363 2360 04 17754 8549 Lpa NEXT s$ ez 
Ol7372 OOO361 1360 O04 B550 SBI.O LAST o® AR SPACE ze 
017373 000010 7720 00 O00 8551 ORL 8 *SHIFT TO XXO POSITION z@ 
017374 000357 2220 04 17753 8552 LOX IXeLASTe$ ¥SET START ADDRESS 0z 
017375 000000 6200 06 O00 8553 | FAXO sQL | , a 
a 0 Ot Ac I< Y SK 0 2 ES <1 | 0 re | 
017376 000000 5202 01 O00 8555 RPTX ol “ 
Ol?a77 0000 4501 12 000 8556 ST o1Xe i 
017400 000001 1360 03 000 8557 SBLO 19nU | a®@ 
017401 777775 6054 04 17376 8558 #PNZ  OTFIeS ais 
B559 *# ke Ke He HHH HHH HH HHH HH HH “3 
85460 * INTTIALIZE LRM SEGMENT 0000 
017402 8541 TFLRM EQU ® ra 
017402 006031 4714 07 O00 85462 #4LDP  PIeSDeLRMeDO gy 
017403 100000 5541 00 000 8543 STCl eePl OPEN GATE . . @ 
017404 000355 2350 04 17761 8544 LDA BOVTTTITTTTTIO0SS  KEMPTY ENTRY DATA sg 
017405 700270 2361 00 000 8545 Lba aCRMKP 9 ePeCR *PROCESS NUMBFR- | Z 
017406 000002 6360 02 O00 8546 FAQ. 2equU. ®ADD 2 FOR INTERCOM AND SWART <<< @ 
Ss 
v 7 
: © 
vA 
— :@ 
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9S 
017407 000010 7720 00 000 8547 ORL 8 *SHIFT FOR REPEAT 9s 
017410 Q00000 6200 06 000 8548 FAXO 9 QL vs 
017411 000003 6220 00 O00 8549 FAX 1X03 *START POINT | es 
, 017412 8570 TFLRML EQU * zs 
017412 000000 5202 Ol 000 8571]. RPTX ol sg 
017413. 100000 7551 12 000 8572 &zSTA sfXePE *FILL UP SEGMFNT WITH EMPTY ENTRY 000g 
017414 000001 1360 03 O00 8573 SBLQ Len | ” 
017415 777775 6054 04 17412 8574 £#XTPNZ  &'ITFIRMl oS }}}}© 2} ©) SSS DISPOPCV - 
8575 eH KKK KHER HEH HR HHH KH HK KH i 
DO BGK! CUEN TEALCTZE PDP SEGM eS 99 
017416 8577 TFPDOP EQU * op 
017416 006036 4714 07 000 8578 LDP PT sSDePDP sO a 
017417 100000 5541 00 000 8579 STC1 saP] *OPEN GATE _ | 
017420 000020 2350 03 000 8580 LDA ZSMAINsDU 7® GIVE POP MAIN LEVEL 
017421 100001 2551 00 O00 g85a1 ORSA ePNPOP > oPI HIGH ENOUGH PRIORITY é 
017422 OOO0O041 7100 04 17463 85R2 °+&;5TRA TFPRQOS Op 


eee ee ea a Ne ee OE Ie AD ek ee eae en a ee eR ee TENE EN ee ETE Le En RE eee ee LO Oe eee Re ee tne ect Ere, eee ened eee oa ee «@ 
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TNITTALIZ&F SEGMENTS 


8584 * 
B5a5 * INTTIALIZE PRQ SEGMENT 
85R6 * €S 
R5ER7T * eK HEH HH KEKE HHH HK HH KR HH KH HR * 
85A8 # PRO SEGMENT DATA SKELTON .@ 
017423 8589 TPROSK FQU * 06 
017462 8590 TPRQRS EQU IPRQSK+DePRGQ ab 
017423 777777 000000 O00 8591 ZERO #1 *GATE WORD oo @ 
017424 000000 000000 000 8592 ZERO #% 00 *#SSA WAIT QCB Ly 
0174295 777743 777743 O00 8593 ZFRO %eTPRIBSe*—1 PROBS a aia 
Bitz 000000 000000 000 8594 ZERO *GATE WAIT QCR or @ 
17497 777745 777745 000 8595. ZFRO %#=TPRQBSs*=1 PROBS ve 
nae 000000 000000 O00 8596) ZERN *SSSA 1/0 WAIT QCB eb 
017431 777747 777747 + O00 8597 ZERO %=TPROBSe*-IPRQBS ~~ Se te ee ee ee ae 
017432 000000000001 000 8598 OCT 1 *CPU PROFILE TABLE " 
017433 0060000000002 000 8599 _ ~ OCT 2 Se 
017434 000000000004  _—000_— a6 Gl 
017435 000000000010 000 8401 OCT 10 = 
8402 INHTB ON ie 
017436 777777 7102 04 O00 8693 TRA mleIC *PROCESSOR STATUS TABLE =e e® 
017437 777777 7102 04 O00 8604 TRA @w1eIC | Ge 
017440 777777 7102 04 O00 8405 TRA mLeIC ve 
017441 777777 7102 04 000 8406 TRA “1sIC «® 
B607 INHTB OFF | ee 
8408 SUBDISPATCH DATA SUBDO150 
017442 000000 000000 000 8409 ZFRO HH 9 HH LAST SERV'D. # ENTRIES SUBDOT60 Te 
017443 9000000 000000 000 8410 ZERO %% 40 SQPT PTR FOR gee PROCIR SUBD0170 ez 
017444 000000 000000 O00 8411 ZERO %% 90 | SUBDOTSO ez 
017445 000000 000000 000 8412 ZERO #00 | SUBD0190 2@ 
017446 000000 000000 000 8613 ZERO *% 40 SUBD0200 9% 
_ 017447 8414 DUP 295 SQPT TABLE OF PROCESSES SUBD0210 ez 
017447 000000 000000 000 8415 ZFRO keke  =©)—)——C™~C“C—~s—s,..... PROCESS 6 HWeWdUOFFSET TO QUEUE SUBD0220 — “7 @ 
017450 000000 000000 000 8416 ZERO HH 9 eH PTR TO NEXTs # PROC!RS HERE 5UBD0230 . 
017451 000000 000000 000 °°} ~ —FERO "eee PROCESS #¢ OFFSET TO QUEUE © 8z 
017452 000000 000000 _000 ZFRO HH 4 HH PTR TO NEXT» # PROC®RS HERE hd 
017483 000000 000000 °#000 ZERO HeRE ”:C#@PRROCESS oo OFFSET TO QUEUE 
017454 000000 000000 000 ZFRO HH g HH PTR TO NEXT»s # PROC®RS HERE 
017455 000000 900000 #000 ZERO ss HQ HK SS ROCESS aa OFFSET TO ULL. 
017456 000000 000000 000 ZERO KH he PTR TO NEXTs # PROC#RS HERE ui 
017457 000000 000000 000 FRO HK g HH PR fe 0 PO QUEUE | _ 
017460 000000 000000 000 ZFRO HH gH PTR TO NEXTs # PROCIRS HERE 
017461 000000 0000 00 000 8417 TALLY Oo*®  %eCRNPC TS SET AT tt 
017462 000001 QO00001 000 8618 ZERO ePNPOP 5 e¢PNPOP *DISPATCH QUEUE CB 
| B619 —_ CCCSCSC“‘“‘“;*‘SRF‘ERRSS DT SPAT'CHA TS BOP FOR ROCUCALEL .® 
| 017463 8620 TPRQF FQU * Mh 
B21 kK eR RR OR NR RR RR RR RR Rg 
B622 % FriLL UP PRa SEGMENT | « @ 
OOOO AS XXXX SET  IPRQE@IPROSK OOOO 20s 
017463 8624 TFPRQ FQU % L 
017463 006042 4714 07 O00 8425 LDP PleSDePRO*eDL »@ 
¢ 
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_ TNITIALIZF SEGMENTS s® 
9S 
017464 577737 6305 04 Q00 8426 EPPR POsIPRQSK=*9[CeP5 ei 
017465 000100 1005 00 000 8427 MLR (1) e(1) | ~@ 
017466 000000 0002 00 O00 B428 ADSC9 9 XXXX*#4eP0 00000020 és 
017467 100000 0002 00 000 86299 ANSCD oeXXXXHGOP] CMOS 
017470 700271 2351 00 000 g630 LpAa eCRNPCoePeCR ~@ 
017471 000014 7310 00 000 g431 ARS 12 | ee 
017472 100036 7551 00 O00 8432 STA DeNSPesPI es 
017473. 700270 2351 00 000 8633 LDA eCRMKPsePeCR mm] 
017474 000022 7350 00 O00 8434 ALS 18 Ly 
017475 100001 7551 00 000 8635 STA DaSSAPoePl gy 
017476 000062 7100 04 17560 8436 TRA FSS « @ 
8A37 * eK Ke HK x & e ee KF KR KR RHR HK esteem Fe 
8638 % PROCESSOR PROCESS BASE S/S FRAME SKELTON sf 
017477 000000011007 000 | wv @ 
017500 8639 1SSSK EFEQU * iy 
| 017500 8640 BSS aWIcCl Ree ee 
017504 000111 004200 010° 8441 ZERO DSPsSYSIR *IC AND IR. «@ 
017505 000000030000 000 8642 VED 22/002/3910/7%%  /*® SCR AND SEGID e 
017506 8643 BSS oWISR*eWDSAR ie 
fone 017510 BAG4 STNSC  *%,keeKe eWISR «@ 
017510 000000010600 000 VFD 18/%%92/099/eFD93/*#*94/0 ce 
O17Sit .O0CUU0U00000. 000 ~~ VED." S4seEee70... ig 
i 017512 B645 DSNSC 03 64#1024%102492eN «® 
017512 000001610201 000 VED LB/2-1 927399 FO OS/O84I LTS 
017513 002000000000 000 VED 34/64%1024%102492/0 . 
seo 017514 B646 DSDSC —_- RK a KH KK = -  @ 2 eS oe oS ee 
017514 000000010601 000 VFN 18/092/099/eFD93/#* 94/1 - 
017515 O00000000000 OOO VFR -34/¥¥92/0, OS : "az 
| 017516 84647 DSDSC 031024%1024%10249¢4(NeM) z® 
017516 OOOCO00I000L 000. © VED LB/0s2/0997eFD e570 94T LO 5 
— 017517 040000000000 000 VED 34/1024%1024*102492/0 gs 
017520 000000001770 000 8648 PTR 2DRO @ 
017521 000000001771 000 8649 PTR eDR1 : = 
01 22 Q 061 00 8650 R e . zz 
017523 000000006042 000 8651 PTR SD.ePRO z2@ 
017574 000000006136 O00 8452 PTR SOarpSt > re ere FEE San) eS 
017525 000000001775 000 8653 PTR 2DRS5 
017526 000000006145 000 8654 TR Sp.SSA ) ~ 
017527 000000006130 000 8655 PTR SDeCR i 
656 SBe REGS e 
017530 000000010601 000 VFD 18/092/099/eFD93/#* 04/1 «@ 
017531 OOO000000000 O00 VET S47RR ATO 
- 017532 8457 DSNSc HH g KK KH *DR1 
097532 OO0000010601 O00 VED LB/Os2/0 897 eFDeS7RR GGL SS 
017533 o00000000000 000 VED 34/%%92/0 ‘ 
ee : BG5S Sh RR RK y RF FDRZ = Por maz rom 
017534 000000010601 000 VFN 18/092/099/eFDs3/*# 94/1 « © 
017535 OOO000000000 O00 EB BFR TO 
017536 84659 DSNSC HH g HH HH *DR3 = PsPRO 
017536 000000010601 000 VFN 18/092/0997eFD93/k% 94/1 
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—— TNITIALIZF SEGMENTS <® 
017537 000000000000 000 VED 34/%%92/0 
017540 8HH0 DSNSC =—«_-H HK a KH Oo KH *#DR4 = P.PST 
017540 000000010601 000 VFN 18/032/099/eFDe3/*# 94/1 €s 
017541 QOO000000000 OOO WETS S4/®ROO7O ag 
017542 866) DSDSC Ha KH VKH *DR5 @ 
017542 000000010601 000 VFN LEPO92TO SIS oP DOSSRR OFT 06 
017543 000000000000 000 VFD 34/%%12/0 ie 
. 017544 BhA2 DSNSC HH g HH GQ HK *DR6 = PSSA 
017544 000000010601 000 VED 18/002/099/s FD93/## 94/1 be 
017545 000000000000 °}&O00 | VFD 34/%* 92/0 en 
. 017546 B6A3 DSNSC HH ge KK OKK *DR7 = PeCR 
017546 000000010601 000 VFD 18/092/099/eFDs3/x* 94/1 vy 
017547 000000000000 000 i VED 34/%#%92/0 ev 
017550 8664 BSS 8 "INDEX AG: ee ee 
B45 * KKH KH HHH HER HE KH KH KH HK HHH HHH HH ee 
B646H6 * FILL UP S/S FRAME SKELTON . ov 
017560 8667 TFSS  EQU # «® 
017560 777730 0544 04 17510 8648 STD P4seWISR+IS55K9$ ee 
017561 177777 2360 07 000 8669 LDA =01777779DL i 
017562 777726 3560 04 17510 #470 ANSQ eWISR#ITSSSK eS «@ 
017563 000163 2350 04 17746 8671 LDA DSPENDo$ ce 
017564 200000 1350 07 O00 8672 SBLA =0200000sDL ne 
017565 777723 2550 04 17510 8673 ORSA eWISR+ISSSK 9S «® 
017566 001765 4714 O07 O00 8474 LMP PT seLSReDL i eee ee 
(017567 777725 0514 04 17514 8675 STD PY eaWLSReISSSK os 
017570 777720 2370 04 17510 8676 LDAQ SWHSRE TSS g = SS a cr re ee ae 
017571 777737 7570 04 17530 8677 STAQ eWDORO+ITSSSK oS ez 
017572. @77740 7570 04 17532 8678 STAQ eWDRL*LSSOK 9S gg 
017573 777747 7570 04 17542 8679 STAQ eWNR5+ISSSK oS 2® 
017574 006133 4714 07 O00 8680 LDP PTsSDeKL DL ge 
017575 777737 0514 04 17534 8681 STD PIeeWOR2+I1SSSK 9$ sz 
017576 006042 4714 07 000 8682 LDP PT sSDePROsDL z@ 
017577 777737 0514 04 17536 8683 STD PI »eWOR3+I1SSSK oS ez 
OT7600 O06136 4714 00 8684 LD 1*5De ze 
017601 777737 0514 04 17540 865 STD Pr eeWDR4+ISSSK oS z@ 
017602 006145 4714 07 000 #86R6 LOP 5 9) a 
017603 777741 0514 04 17544 8687 | STD PJ eeWDR64I1SS5K eS | 
017606 777742 0574 04 17546 64688 ~ STD PeCReeWDORT+15S5K9S eT. | 
BOARD KK RK KEKE KE KK HK HH KH HHH i” 
BIO MOVE S75 STACK FRAME TO SD eS DOTS gh 
7605 700271 2221 00 O00 #8491 LDX TXeeCRNPCoePeCR , a® 
7606 577672 6305 04 000 8692 — _ EPPR POsTSSSK-*eTCeP5 = vi 
017607 8693 TFSS10 EQU * el 
017607 000032 6230 04 17641 8694 FAX JYsIFSSLPs$ i — a @ 
017610 000001 7420 04 000 8495 STX IXeleIc t 
OT7611 000000 6230 13 000 BA96 EAX TY o**olLY Oo 
017612 000000 7160 13 000 #8497 XEC ely *GET S/S DESCRIPTER - & 
017613 OOL761 4714 07 O00 8698 LDP PT aeCTYPsDL | 3 
017614 000100 1005 00 000 84699. MLR (1) 91) ‘ 
017615 000000 0003 00 000 &7n0 ADSC9 9 94B8%4eP0 @ 
S 
v 7 
:@ 
: 
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cc HHA UN ee erent Nn A A ert terre ep 
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017616 100000 0003 00 000 87n1 ADSC9 2948%49P] 
017617 OO0001 1220 03 000 87n2 SBLX TXelsDU 
017620 100053 4421 00 000 g7n3 SXL 1XeeWREGS+399P] xSET INDEX 7 TO PROCESSOR NO, ee 
017621 777766 6054 04 17607 8704 | TPNZ WOSOTOGS. 1 cat ee ed Sa eee ee ee ee ee ae 
8705 * INTTIALIZE SUB=DISPATCH LINKAGE SEGMENT SUBD3340 
017622 000030 2350 OF 000 #8706 LnA 24eDL INITIALIZE BASE OF LINKAGE SUBD3350 ane = 
017623 000030 0550 04 17653 |707 ASA IFSpP+59$ IN ENTRY pFSCRIPTORS $UBD3360 
017624 000020 0350 07 000 B7n8 ADLA 164eDL UBD 
017625 000032 0550 04 17657 8709 ASA IFSDP+99$ 5UBD3380 a 
017626 000020 0350 O 000 8710 ANDLA 169DL 
017627 000034 0550 04 17663 8711 ASA TFSDP+136$ SUBD3400 + @ 
017630 000020 0350 07 O00 8712 ADLA 16eDL SUBD3410 7 ie 
017631 000036 0550 04 17667 8713 ASA IFSDP+179$ SUBD3420 
017632 006070 4714 07 O00 8714 LDP PT eSDe SDP oDL BE 
017633 001761 4714 07 OOO 28715 LOP PIreeCTYPsDL SUBD3440 fe 
017634 O00012 6304 04 17646 B716 EPPR POelFSDP9S SUBD3450 aa: 
017635 000100 1005 00 000 8717 MLR (1) 9(1) SUBD3460 «@ 
017636 000000 0001 20 000 8718 ANSC9 998OePO | se 
017637 100000 0001 20 000 8719 ADSC9 9980eP] SUBD3480 e 
017640 000032 7100 04 17672 8770 | TRA IFGAT9$ ge 
| 017641 8721 TFSSLP BSS 1 se 
017642 006003 4714 OT O00 8772 LDP PreSDe SSO 
017643 006004 4714 07 000 8773 LOP PTeSDeSS19DL «@ 
017644 006005 4714 07 000 8724 LOP PT e«SDeS529DL 7 ze 
017645 006006 4714 07 000 8725 LOP P1e5De5539DL 7 : 
017646 8726 TFSDP FNULL SUBD S5000.0OOOOW 
000000 8727 S.aAPR FQU #eTFSOP A/P REGISTER VALUES S$UBD3510 6z 
017646 B728 NSHSc 2400 ’ ) 3 az 
017646 000011750761 000 VFD 18/10- w192/399/¢ TEDs3/7 94/1 z® 
017647 OO0006065000 O00 7 VER SG FQ ODDO TT 
000002 8729 SeNSR FQU %=TFSDP | DSAR VALUE SUBD3530 ‘te 
017650 8730 STNSC 794000000109 (ReW) | oe @ 
017650 000011750760 000 VFD 18/10"102/399/eFD93/794/0 . 
017651 O 606 ; Db) 4/ ? 
000004 8731 SeENT EQU #e TFSDP SUB=DISP ENTRY FOR PROCIR 0 SUBD3550 
652 8732 EF11DSC Oeke%aedsOq rt 
017652 000000000013 000 VFD 18/%*91/0910/093/094/11 
017653 000000000000 000 VFR LO/2/2-1s24/*¥e2/0 #0 
000006 8733 SeISR FQU balla SUB=DISP ISR FOR PROC?®R O SUBD3570 
. ~~ 017654 8734 STNSC Tanke ) ) 
017654 000007772760 000 VEN V98e102/599/6 FDo3/794/0 
017655 000000000000 #000 ~ WED i Ey 1 0 
017656 8735 FLIDSC Osx%e2s0o%* ENTRY FOR PROC?!R 1 SUBD3590 
017656 000000000013 O00 © VFN —s« 1.8 /*®¥ 91 /0910/003/004711  . 
017657 Q00000000000 000 VED 10/2/21 924/%*% 92/0 . — - 
017660 8736 rpS¢ Tex aa (RoWets R OR PR TR SJBDI500 aA. 
017660 000007772760 000 VFN 18/8-192/399/eFD93/794/0 | ; © 
017641 000000000000 000 VER 34S BHRROSO 0g 
017662 8737 FLIDSC Oet%e2e0o%% SUBD3610 
017662 000000000013 O00 © “VED POUweS1/08102063/016/10 6 a ee ae 
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ss 017663 000000000000 000 VED L0/24271924/*¥* 92/0 
017664 8738 STDSC 7 9*%—_8q (RaoWeE oS) U , 
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1248T 02 12=827=79 09,322 H6600J7.057 Gcns IV. 4VX DISPATCHER 791219DTSP PAGE 248 A 
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017664 000007772760 000 VED 18/8-192/399/eFD93/794/0 é 
017665 000000000000 000 VED 34/%% 92/0 OE ee ee eg ee Se ee ee 
017666 8739 FLIDSC Osxke2sOok® SUBD3630 
017666 000000000013 000 VFD 18/*%91/0910/0% 370.4711 
017647 000000000000 000 VFD LO/2/2m1 024/%% 92/0 
. 017670 8740 STNSC 7ox#98s (RIW9E 9S) SUBD3640 
017670 000007772760 000 VED 18/8-192/399/eFDs3/794/0 | 
017671 000000000000 000 VED 347%#*92/0 i a a ae 
B741 KR HK KKH EK HH HK EHH KH KKK HK HH KH 
8742 % GTM SEGMENT FILL UP ~ ow 
| 017672 8743 \TFGAT EQU * ey 
017672 006027 4714 07 000 8744 LOP PT sSDeGTMeDL Bee 
017673 100000 5541 00 O00 8745 STC aePI *SHUT GATE OF SD«eGTM 
017674 062100 2220 03 000 8746 LNXx2 =0002100sDU ¥ONE DUMMY ENTRY = FOR RETR 
017675 100001 4421 00 O00 8747 SXL2 LeePI -  *SET RPTX XO DATA m 
. B748 *KHRKRHK KH HH KH KEK KH HK H HEH HH HH ae 
8749 * MOVF PJT DATA TO SEGMENT . 
| 017676 R750 IFPUT  FQU % «® 
017676 776741 2340 04 16637 8751 SZN PJTSZ9$ *CHECK GATE WORD Ge 
017677 0000 6000 04 l?ise B752 TZF TRFT 9S AUT = SQ OPTTON WO PE » ae 
017700 006036 4714 07 O00 8753 | LoP PreSDePDPsDL /* WHEN A#PRIORITY SELECTED» «® 
017701 100000 2350 07 O00 8754 LDA ZS5Y5PR eDL FMPRTIORTY CO | : eee 
017702 100001 2551 00 000 8755 ORSA ePNPOP » oPI TO GEPOP ANDs ae 
017703 100003 2551 00 O00 8756 ORSA ePNSYT 9 ePI TORCSNSOUT: 0 ee eee 
017704 006040 4714 07 O00 8757 LDP PI sSDePJTeDL 62 
017705 000005 6304 04 L77l2 8758 FPPR PO ePITSK oS Pee ee ee a ee ee 
017706 000100 1005 00 000 38759 MLR (1)9(1) *MOVE TABLF INTO THE SEGMENT z2® 
017707 000000 0001 00 000 8740 ANSc9 POAP STOLE OPO 
017710 100000 0001 00 000 8741 ANSC9 9 sAPeTSZ#49PI | e 
017711 000021 7100 04 17732 8742 “TRA IRFT 9 er a eat ee 
000010 8763 APF SFT AP.NSZe1 €z 
— lo Le BTAe Palsk £oQU.  * ee ee 
| 017712 8745 DUP 3eAP.NSZ+1 a ) 
017712 000000 0006 000 8746 ZERO 2APeF 7 9 Z2APC aaa 
017713 000000 o00000 000 87467 ZERO /* FLAG » TIME SLICE « KPX si 
a aaa «YE i@ 
; 000007 — 8769 APF SET AP.Fel 7 é 
01 14 000000 O00 006 RO TAD. e—SNUMB 3 -ZAPTOD eens ve 
017715 000000 000000 000 ZFRO /* FLAG » TIMF SLICE « KPX 
000006 AP aF SFT AP.Fe ee ethyl 
017716 000000 000006 000 ZFRO sAP oF /* SNUMB « ZAPCOD 
017717 O00 0000 00 ERO 7 : F : 
000005 AP.F SFT AP. Fel ‘ 
01 70 0O000 G06 elele -RO AP e YOMS 9 ZAPCOD Ss 
017721 000000 000000 000 ZERO  4* FLAG » TIME SLICE « KPX ; @ 
900004 AP.F SET APeFoel aia = —— a 
017722 000000 000004 000 ZERO sAP oF /* SNUMB »« ZAPCOD L 
017773 000000 000000 000 FRO AG» TIME » KPX » @ 
vr! 
ites Be : ® 
é 
poetics = :@ 
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| 000003 AP.F SFT AP.Fel 
017724 000000 000003 000 ZERO sAP,F 7* SNUMB » ZAPCOD 
017725 000000 000000 000 ZERO /* FLAG « TIME SLICE « KPX 
| 000002 AP.F SET AP.Fel Pe ee ee ee ee ee 
017726 000000 o00002 000 ZFRO oAP,F /* SNUMB » ZAPCOD 
017727 000000 000000 000 ZERN 7® FLAG 0 TIMF SLICE © KPX 0 
000001 — APF SET AP.Fel 
017730 000000 000001 000 ZFRO sAPeF /* SNUMB » ZAPCOD 
017731 000000 000000 000 ZFRO /* FLAG « TIME SLICE « KPX 
090000 APF SFT AP.aFel 
R770 ¥ eK RH KKK HHH HEH KR HHH KH HK 
8771 * RFTURN TO .MINIT bp 

| 017732 8772 TRET FQU * ey 
017732 OOOO17 3360 04 17751 8773 ae TDSCW1 9S © 
017733 000020 7360 00 O00 8774 OLS 16 | " 
017734 000020 0360 04 17754 8775 ADLO NEXT o$ _ a eg 
017735 000015 7560 04 17752 8776 STQ ITMP oe «@ 
017736 OOOO1LO 2360 04 17746 8777 Loa DSPENDs$ - 
017737 000001 1360 03 000 8778 SBLQ 1shu le 
017740 O00022 7720 00 000 8779 ORI 18 « @ 
017741 000011 2760 04 17752 8780 ORO TTMP 9S. Se 
O17742 O00000 6350 00 OOO STAT CAN ON 
017743 000002 2210 04 17745 8782 LDX1 INTTX9$ ; 
017744 500000 7IOL Il 000 8783 TRA @beP5 RGD INTO MINT 0S SS 


"fin 


+ net ttt ARE A A A A A EEN Neth nner ste 
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sal 1248T OP 12°27-79 09.322 H6600JN7.057 Gcns IV 4VX DISPATCHER 791219p TSP PAGE 250 
gs 
@ :: TNITIALILZ&F SEGMENTS 
9S 
ss 8785 * 
@ .: B7R6 x COMMON DATA FOR INITIALIZE DIVISION 
ee B7R7 * MAY MOVED TN LAST INITIALIZE DIVISION 
zs 8788 * | 
@ 017745 8789 INITX BSS l 
017746 006615 000000 010 8790 NSPEND ZFRO XENDX 
ev 017747 000000011007 000 | 
@. 017750 8791 TDSCW FBSS 2 
Ly 017752 8792 TTMP BSS 1 - 

. — 017753 8793 LAST BSS [pe eG ce 
@: 017754 8794 NEXT BSS 1 ov @ 
ce 017755 000000 000000 000 8795 IPTCH2 ZFRO s 
ey 87961 —_INHTB ON ey 
@. 017756 000001 7102 04 000 8797 TTRA! TRA letc x @ 
iv O17757 000000 0112 07 000 8798 TNOP NOP 9 DL Iv 
a 8799 INHTB OFF ov 
@ 6E 8800 LIT « ® 
Be 017740 TITITTTITTI7? 000 | ee 
le OL77A1L 777777777700 000 | | | | Le 
@: = BaOL ~—*MODULE TEST ROUTINE WAS DELETED — — @ 
se 017765 8802 TEND  EOU * ee 
ve 000375 8BN3 XXX SET IENDeIFSEG VU0000ZD ve 
@ «: «® 
ze FRROR LINKAGE 7 
le : le 
@ .: 017765 000000000000 000 @ 
62 017766 333324316247 000 62 

az 8804 | END 

@ GMAP VERSTON/ASSEMBLY DATES — JMPA_ 790514/052579 JMPB 791026/102679 JMPC 790611/052579 
9z 17767 1S THE NE AVATLABLE LOCATION. 92 
G2 THERE WFRE 


NO WARNING FLAGS IN THE ABOVF ASSFMBLY sz 
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